- プログラミングのお題スレ Part5
225 ：209[sage]：2014/10/06(月) 18:13:12.18 ID:QJRx0X30 - >>164 オレオレ言語
間違えてたので訂正
define seq(n){
define seq1(m,n1,n2,n3,n4){
if(m = n)
(n1 + n2 + n3 + n4)
else
seq1(m + 1,n1 + n2 + n3 + n4,n1,n2,n3)
}
seq1(5,3,2,1,0)
}
seq(10000)
28058566764257248608122072.....
| - Lisp Scheme Part39
96 ：デフォルトの名無しさん[sage]：2014/10/06(月) 18:29:33.66 ID:QJRx0X30 - >>93
簡単だよ。資料はここ。
http://homepage1.nifty.com/~skz/Scheme/sapphire.html
Gaucheでもリードマクロを使えば割と簡単にできると思う。
|
|