2010-04-04から1日間の記事一覧
http://search.cpan.org/~ambs/Acme-Lisp-0.03/lib/Acme/Lisp.pm 下記のようにLispの計算を評価してくれます。 use strict; use warnings; use Acme::Lisp; # 引き算 my $lisp_code = [ qw(- 1 2 3 4) ]; print eval_lisp($lisp_code) ,"\n"; # 再帰的なリス…
ユークリッドの互除法をperlで書いてみました。 use strict; use warnings; { gcd(160,48); } sub gcd { my ($x, $y) = @_; my $c; while ($x > 0 && $y > 0) { if ($y > $x) { $c = $x; $x = $y; $y = $c; } print "$x, $y\n"; $c = $y; $x = $x - $y; $y =…