Lisp Scheme Part39
■ このスレッドは過去ログ倉庫に格納されています
0093デフォルトの名無しさん
2014/10/06(月) 16:40:18.09ID:drMhmn/H209 デフォルトの名無しさん sage 2014/10/05(日) 15:35:13.47 ID:37iiGiPw
>>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(6,3,2,1,0)
}
seq(10000)
1455650563828306671891266930369....
■ このスレッドは過去ログ倉庫に格納されています