仇及犯奴伊弁玄伉及綢婁
http://pc12.2ch.net/test/read.cgi/tech/1255277760/128
#  ≠杽鎖ㄠ“凜煌∞ 
#  蜇箕凜對毛失旦平□失□玄匹刓憎六方 
#   
#  ≠刓憎拺∞ 
#  ∥∥↘↘↘∥↘↘↘↘↘↘∥↘∥↘↘∥∥ 
#  ↘↘∥↘∥↘∥↘↘∥↘↘∥↘∥↘∥↘↘ 
#  ↘∥∥↘∥↘∥↘↘↘↘↘∥∥∥↘∥∥∥ 
#  ∥↘↘↘∥↘∥↘↘∥↘↘↘↘∥↘∥↘∥ 
#  ∥∥∥↘↘∥↘↘↘↘↘↘↘↘∥↘∥∥∥ 
#   
#  ≠ろ啞蘸∞ 
#  40坌匹賡菟 
#   
# 
# 

蜇箕凜對毛失旦平□失□玄匹刓憎(_凜:_坌) :-
﹛﹛﹛_凜_1 is _凜 // 10,
﹛﹛﹛_凜_2 is _凜 mod 10,
﹛﹛﹛_坌_1 is _坌 // 10,
﹛﹛﹛_坌_2 is _坌 mod 10,
﹛﹛﹛蜇箕凜對毛失旦平□失□玄匹刓憎(_凜_1,_凜_2,_坌_1,_坌2).

蜇箕凜對毛失旦平□失□玄匹刓憎(_凜_1,_凜_2,_坌_1,_坌2) :-
﹛﹛﹛醒儂及失旦平□失□玄(_凜_1,L1),
﹛﹛﹛醒儂及失旦平□失□玄(_凜_2,L2),
﹛﹛﹛醒儂及失旦平□失□玄(_坌_1,L3),
﹛﹛﹛醒儂及失旦平□失□玄(_坌_2,L4),
﹛﹛﹛敗筏寞及失旦平□失□玄(';',L5),
﹛﹛﹛L0 = [[↘],[↘],[↘],[↘],[↘]],
﹛﹛﹛き域墊醒及墊昫及append(L1,L0,L2,LA),
﹛﹛﹛き域墊醒及墊昫及append(LA,L0,L5,LB),
﹛﹛﹛き域墊醒及墊昫及append(LB,L0,L3,LC),
﹛﹛﹛き域墊醒及墊昫及append(LC,L0,L4,LX),
﹛﹛﹛失旦平□失□玄匹刓憎(LX).

失旦平□失□玄匹刓憎([]).
失旦平□失□玄匹刓憎([L|R]) :- concat_atom(L,S),write_formatted('%t\n',[S]),失旦平□失□玄匹刓憎(R).

'き域墊醒及墊昫及append'([],[],[],[]).
'き域墊醒及墊昫及append'([L1|R1],[L2|R2],[L3|R3],[L4|R4]) :-
﹛﹛append(L1,L2,L3,L4),
﹛﹛'き域墊醒及墊昫及append'(R1,R2,R3,R4) .

醒儂及失旦平□失□玄(0,[[↘,∥,↘],[∥,↘,∥],[∥,↘,∥],[∥,↘,∥],[↘,∥,↘]]).
醒儂及失旦平□失□玄(1,[[∥,∥,↘],[↘,∥,↘],[↘,∥,↘],[↘,∥,↘],[↘,∥,↘]]).
醒儂及失旦平□失□玄(2,[[∥,∥,∥],[↘,↘,∥],[∥,∥,∥],[∥,↘,↘],[∥,∥,∥]]).
醒儂及失旦平□失□玄(3,[[∥,∥,∥],[↘,↘,∥],[∥,∥,∥],[↘,↘,∥],[∥,∥,∥]]).
醒儂及失旦平□失□玄(4,[[↘,↘,∥],[∥,↘,∥],[∥,∥,∥],[↘,↘,∥],[↘,↘,∥]]).
醒儂及失旦平□失□玄(5,[[∥,∥,∥],[∥,↘,↘],[∥,∥,∥],[↘,↘,∥],[∥,∥,∥]]).
醒儂及失旦平□失□玄(6,[[↘,∥,∥],[∥,↘,↘],[∥,∥,∥],[∥,↘,∥],[∥,∥,∥]]).
醒儂及失旦平□失□玄(7,[[∥,∥,∥],[∥,↘,∥],[↘,↘,∥],[↘,∥,↘],[↘,∥,↘]]).
醒儂及失旦平□失□玄(8,[[↘,∥,↘],[∥,↘,∥],[↘,∥,↘],[∥,↘,∥],[↘,∥,↘]]).

醒筏寞及失旦平□失□玄(':',[[↘,↘,↘],[↘,∥,↘],[↘,↘,↘],[↘,∥,↘],[↘,↘,↘]]).