【普通のやつらの】 Arc Language 0 【上を行け】

【普通のやつらの】 Arc Language 0 【上を行け】 at TECH

147:デフォルトの名無しさん
08/03/02 19:14:13
>>144
URLﾘﾝｸ(practical-scheme.net)

＞(define-page (said)
＞　(self-chain "self"
＞　 (form/cont/ (entry-lambda (:keyword say)
＞　　　　　 (a/cont/ (cut p/ "You say:" say) "click here"))
＞　　 (readln/ say)
＞　　 (submit/))))
＞
＞Arc: 23ノード：15の葉/字句 + 8内部ノード
＞Kahua: 27ノード：17の葉/字句 + 10内部ノード

次ページ

続きを表示

1を表示