(defun direct-product-2arg (lst1 lst2)
(let ((product ()))
(dolist (l1 lst1)
(dolist (l2 lst2)
(setf product (cons
(if (listp l2)
(cons l1 l2)
(list l1 l2)) product))))
(reverse product)))
(defun direct-product (&rest lsts)
(let ((lsts (reverse lsts)))
(nlet iter ((lsts (cdr lsts))
(product (car lsts)))
(if (null lsts)
product
(iter (cdr lsts) (direct-product-2arg (car lsts) product))))))
告知ページを公開しました!
次回は 10/27(土) 13:00-18:00 開催です。
今回のみ 土曜日 開催となりますのでご注意ください。
P.129 「積み木の世界」から読み進めます。
皆様のご参加をお待ちしております。
https://twitter.com/furandon_pig/status/1050008712125894656
告知ページを公開しました。
次回は4/3(水)開催です。
今回は開催まで3週間ほど間が空きますのでご注意ください。
https://twitter.com/furandon_pig/status/1105814810678038529
P.218「7.3 例 題」の続きから読み進めます。
皆様のご参加をお待ちしております。
告知ページを公開しました。
次回は5/15(水)開催です。
今回は開催まで3週間ほど間が空きますのでご注意ください。
https://twitter.com/furandon_pig/status/1118498181296164864
P.232「8.3 結合性と可換性」の続きから読み進めます。
皆様のご参加をお待ちしております。
告知ページを公開しました。
次回は5/22(水)開催です。
https://twitter.com/furandon_pig/status/1128644488140705792
P.234「8.3.4 対数関数、三角関数、微分」から読み進めます。
皆様のご参加をお待ちしております。