【普通のやつらの】 A ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
45:デフォルトの名無しさん 08/02/05 23:09:32 誰が保守してんだ 46:デフォルトの名無しさん 08/02/05 23:10:08 グレアム 47:デフォルトの名無しさん 08/02/05 23:14:38 :aでSchemeに抜けて　acompileを使うとコンパイルされた結果が Schemeファイルとして出力される。 > (acompile "fact.arc") #t > ((lambda () 　 'nil 　 (ar-funcall3 _sref _sig '(n . nil) 'fact) 　 ((lambda () 　　　'nil 　　　(if (not (ar-false? (ar-funcall1 _bound 'fact))) 　　　　((lambda () 　　　　　 'nil 　　　　　 (ar-funcall1 _disp "*** redefining ") 　　　　　 (ar-funcall1 _disp 'fact) 　　　　　 (ar-funcall1 _writec #\newline))) 　　　　'nil) 　　　(begin 　　　　(let ((| fact| 　　　　　　　 (lambda (n) 　　　　　　　　 'nil 　　　　　　　　 (if (not (ar-false? (ar-funcall2 _is n 0))) 　　　　　　　　　 1 　　　　　　　　　 (ar-funcall2 　　　　　　　　　　 _* 　　　　　　　　　　 n 　　　　　　　　　　 (ar-funcall1 _fact (ar-funcall2 _- n 1))))))) 　　　　　(namespace-set-variable-value! '_fact | fact|) 　　　　　| fact|))))))

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5398日前に更新/41 KB
担当:undef