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

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

Lisp Scheme Part36

302 :デフォルトの名無しさん:2013/04/26(金) 03:05:40.06
ambの引数に他で定義したlistもってくるにはどうすればいいの?
(amb-collect
(let* ((y (list
(list 1 2 3 4 5 11)
(list 6 7 8 9 10 4)))
(x (list
;(apply (cons amb (list-ref y 0)))
;(apply (cons amb (list-ref y 01))
(amb ,@(list-ref y 0))
(amb ,@(list-ref y 1))
)) )
(if (not (= (+ (list-ref x 0) (list-ref x 1) ) 15))
(amb)
(list (list-ref x 0) (list-ref x 1)
))))

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

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

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)