blog/content/post/2008/08/20/2008-08-20-00001007.md

6.4 KiB
Raw Blame History

title author date wordtwit_post_info categories
なんかもっと簡単なところからやりたい kazu634 2008-08-20
O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:4225;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}
gauche
Lisp

ちょっぴり置いてけぼりな感じを味わっているので、もう少し時間をかけてやっていこうと思う。というわけで、id:hayamizがEmacs勉強会でお勧めしてたIndex of /scheme/t-y-schemeを読み始める。これをやってから、もういちど『プログラミングGauche』に挑戦しようと思う。

letrecとか完全に誤解していた気がする

わかったこと:

letはlambdaを言い換えている構文。だからブロックを作って、そのブロックの中で通用するローカル変数を持って結果を返しているイメージ…なのかなたぶん。lispとperlで比較:

gosh> (let ((a 3)
(b 5))
(+ (* a a) (* b b)))
34
# === use ===
use  strict;
use warnings;
# === main ===
{
my $a = 3;
my $b = 5;
print(($a * $a) + ($b + $b), "\n");
}
# print ($a);                             # これはエラーになる

letrecはlambdaで再帰的な手続きを作るときに用いるイメージなのかなうでも、perlだとforeachとかすごくしたくなるかも数字かどうかのチェックは省略

gosh> (letrec ((sum (lambda (lis)
(cond [(null? lis) ]
[(number? (car lis)) (+ (car lis) (sum (cdr lis)))]
[else (sum (cdr lis))]))))
(sum '(1 2 3 4 5)))
15
# === use ===
use  strict;
use warnings;
my $ res = ;
# === main ===
my @i = (1, 2, 3, 4, 5);
print (&sub_sum(@i), "\n");
# === sub ===
sub sub_sum{
my $x;
my @y;
($x, @y) = @_;
if ( == @y){
return ;
} else {
$res = $x + &sub_sum(@y);
}
return $res;
}