2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Lisp Scheme Part36

555 :デフォルトの名無しさん:2013/06/24(月) 19:47:21.58
(defmacro recur-let (name args &body body)
(multiple-value-bind (vars vals)
(labels ((f (lst vars vals)
(if (null lst)
(values (nreverse vars) (nreverse vals))
(f (cdr lst)
(cons (caar lst) vars)
(cons (cadar lst) vals)))))
(f args nil nil))
`(labels ((,name (,@vars)
,@body))
(,name ,@vals))))
やったー
lisper見習いだけどschemeの名前付きlet出来たよ

226 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)