On 19/05/05 04:52 +0800, Autrijus Tang wrote: > An one-hour hack of mine proved fruitful. This is Perl 5 script, > calling into Perl 6 functions defined inline: > > #!/usr/bin/perl > use Inline Pugs => ' > sub postfix:<!> { [*] 1..$_ } > sub sum_factorial { [+] 0..$_! } > '; > print sum_factorial(3); # 21 > > The implementation is in lib/Inline/Pugs.pm that comes with Pugs tree. > You'll need Inline.pm from CPAN to run the example above. > > Patches, suggestions, etc welcome. :-) > > Enjoy, > /Autrijus/
*evil grin* An five-minute hack of mine proved fruitful. This is Perl 5 script, calling into Perl 6 functions defined inline: #!/usr/bin/perl use pugs; sub postfix:<!> { [*] 1..$_ } sub sum_factorial { [+] 0..$_! } no pugs; print sum_factorial(3); # 21 The implementation is in lib/pugs.pm that comes with Pugs tree. You'll need Inline.pm from CPAN to run the example above. Patches, suggestions, etc welcome. :-) Enjoy, /ingy/