再帰的な無名関数 - ヒビノキロク
次の関数は再帰的な関数だ。 (define fact (lambda (n) (if (= n 0) 1 (* n (fact (- n 1)))))) この関数は内部で自分自身を呼び出しているので、普通の方法では無名関数として定義できない。 こういう場合、不動点オペレータというものを使うと以下のようにしてfactを定義することができる。（fact関数の中で直接factという名前を使っていない所がポイント） (define fact (let ((Y (lambda (F) ((lambda (s) (F (lambda (x) ((s s) x)))) (lambda (s) (F (lambda (x) ((s s) x)))))))) (Y (lambda (f) (lambda (n) (if (= n 0) 1 (* n (f (- n 1))))))))) ここで天下り的に出て
分数計算 - みずぴー日記
こんばんは、水野です。趣味は再発明です。 30分プログラム、その142。分数計算を再発明してみる。 いくつかの関数名とすべての機能が標準ライブラリと被ってるけど気にしない。 使い方 gosh> (define half (make-ratio 1 2)) half gosh> (define one-third (make-ratio 1 3)) one-third gosh> (add half one-third) (5 . 6) gosh> (sub half one-third) (1 . 6) gosh> (mul half one-third) (1 . 6) gosh> (div half one-third) (3 . 2) gosh> (ratio->float half) 0.5 ソースコード numeratorとdenominatorを何度打ったことか。 #! /op
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
