2011-04-01から1ヶ月間の記事一覧
-module(uma). -export([uma/2]). uma({X,Y}, S) -> next({X,Y}, S, [], [{oth,[]}], []). next(P,S,K,Oth,R) -> NewK = [P] ++ K, Next = getNext(P,S,K), if length(NewK) == S*S -> recode(S,NewK,[{oth,[]}] ++ Oth, R); length(Next) == 0 -> undo(S,K,…