神神神神 教えてください。 神神神神
■ このスレッドは過去ログ倉庫に格納されています
0001神
NGNG縦型探索について勉強してるんですがなんだかよく解りません。
とりあえずプログラムを作って教えてください。
間違っても神に向かって「自分で調べろ」とか
生意気な口は聞かないようにお願いします。
0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1003838158/l50
にうつるか、もうちょっとネタに磨きをかけるかどっちかにしてください。
0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGfind(Ans,Tree):-Tree=..[Ans|_].
find(Ans,Tree):-Tree=..[_|T],findtree(Ans,T).
findtree(Ans,[H|T]):-find(Ans,H);findtree(Ans,T).
0019デフォルトの名無しさん
NGNG0020デフォルトの名無しさん
NGNGと教えてやろうかと思った。
それが一番早い解決法だと思った。
しかし、それではだめなのだ。1自身でそのことに気づかないと。
私は心を鬼にして、1を放置することに決めた、、、
0021デフォルトの名無しさん
NGNG0022デフォルトの名無しさん
NGNG0023スプーキー
NGNG0024デフォルトの名無しさん
NGNGなつかしーな。スラムダンクだっけ?
3Pシュートをバシバシ決めてたよな...
0025デフォルトの名無しさん
NGNG牧のチームの奴だっけ?
0029スプーキー
NGNG0031デフォルトの名無しさん
NGNGhttp://teri.2ch.net/test/read.cgi/bobby/1008058753/
暇なら来て
0032デフォルトの名無しさん
NGNGご満足いただけるように継続渡しで書いてあります.
どうかお納めください.
(define (dfsearch x l scont fcont)
(if (pair? l)
(dfsearch x (car l)
scont
(lambda ()
(dfsearch x (cdr l) scont fcont)))
(if (equal? x l) (scont x) (fcont))))
0033デフォルトの名無しさん
NGNGScheme屋が好きそうなコードだね
0034デフォルトの名無しさん
NGNGすみません。どうしてこれで縦型探索になるんでしょうか?
■ このスレッドは過去ログ倉庫に格納されています