| From(投稿者): | TATSUMI Takeo <tttt@cc.tuat.ac.jp> |
|---|---|
| Newsgroups(投稿グループ): | fj.jokes |
| Subject(見出し): | Re: A Million of Love, For You |
| Date(投稿日時): | 06 Nov 2003 12:31:18 +0900 |
| Organization(所属): | TUAT |
| References(祖先記事, 一番最後が直親): | (G) <bob36m$19j6$1@nwall1.odn.ne.jp> |
| Message-ID(記事識別符号): | (G) <m28ymui35l.fsf@qed.decode.waseda.ac.jp> |
Love(N, M, List) :- N>= M | List=[]. Love(N, M, List) :- N<M | List=[Love|Rest], X=N+1, Love(X, M, Rest). Love(M,List) :- Love(0,1000000,List).