某名古屋周辺 OCaml 勉強会で話題になったので SEND + MORE = MONEY を Prolog で解く．どういう問題かというといわゆる覆面算で， S E N D M O R E

引用： Mixi 「Ocaml使い」コミュニティ， 「OCamlで頭の体操」トピックより n円のお金を日本のコインで支払う組み合わせは何通りあるか計算する関数を作成せよ． 例： n = 5 の場合は，(5円コイン1枚，1円コイン5枚）の2通り n = 15 の場合は，次の6通り： …

Prolog で QuickSort． % qsort(L1, L2) : L1 をソートすると L2 になる qsort([], []). qsort([P|L], L2) :- partition(L, P, [X, Y]), qsort(X, L3), qsort(Y, L4), append(L3, [P|L4], L2).% partition(L, P, [X, Y]) : L をピボット P で分割すると X と…