Hatena::Groupfizzbuzz

mattnの日記

 | 

2010-04-05perlのような、pythonのような

perlかも。でもpython。

16:29

use strict;
use warnings;
use Win32::OLE;
my $perl = Win32::OLE->new('ScriptControl');
$perl->{Language} = 'Python';
my $res = $perl->Eval('[("Fizz"*(i%3<1)+"Buzz"*(i%5<1))or i for i in range(1,101)]');
print "$_\n" for @{$res};
 |