CommonLisp Scheme Part13at TECHCommonLisp Scheme Part13 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト500:デフォルトの名無しさん 05/07/03 23:01:11 (defun al-max (x) (if (listp x) (apply #'max (mapcar #'al-max x)) x)) 501:495 05/07/03 23:05:49 すいませんmax使わないで作ることって事出来ますかね？ 502:デフォルトの名無しさん 05/07/03 23:08:35 max 503:デフォルトの名無しさん 05/07/03 23:09:26 max を使いたくないなら、自分で max を書けばいいじゃない。 504:デフォルトの名無しさん 05/07/04 00:03:01 >>503 そうですね、ありがとうございました。 505:デフォルトの名無しさん 05/07/04 00:55:21 こっそりGauche 0.8.5が来てた。 506:デフォルトの名無しさん 05/07/04 06:08:07 (al-max '()) の時はエラーですね。 507:デフォルトの名無しさん 05/07/04 22:26:42 cmuclはまだwindowsでは動かんのか？ 508:デフォルトの名無しさん 05/07/04 22:59:59 何の為に? 509:デフォルトの名無しさん 05/07/05 00:24:57 >>508 何のためにって･･･Lispがネイティブに落ちるなら色々使えるじゃん。 いつまでもｳﾆ系しか使えないからLispはマイナーなんだよ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch