チャーチ数をつくってみた - クラなんとか or くらなんとか or cla なんとかの日記SICP の問題2.6 を見ていたら書きたくなったので，別の言語で写経してみた． #!/usr/bin/env perl # -*- mode: perl; coding: utf8; -*- use strict; use warnings; use Perl6::Say; my $zero = sub { my ($f) = @_; sub { my ($x) = @_; $x; }; }; sub add_1 { my ($n) = @_; sub { my ($f) = @_; sub { my ($x) = @_; $f->($n->($f)->($x)); }; }; } my $one = add_1($zero); my $two = add_1($one); sub plus ($$) { my ($m, $n) = @_; sub { my ($f) = @_; sub
