８を何個か使って、四則演算、ケタくっつけ（８、８８、・・・）で来年の年号の２００８を作るのはどうかなと思ってプログラミング。prologで。

／／／／／／／／／／／／／／／／／／／／／／／
shisoku(A,B,C,F1,F2,F):- C is A+B,F=F1+F2.
shisoku(A,B,C,F1,F2,F):- C is A-B,F=F1-F2.
shisoku(A,B,C,F1,F2,F):- C is A*B,F=F1*F2.
shisoku(A,B,C,F1,F2,F):- 0.0001>B,!,fail.（コードとしてＮＧ）
shisoku(A,B,C,F1,F2,F):- C is A/B,F=F1/F2.

hachi(A,B,F):-wakeru(A,A1,A2),hachi(A1,B1,F1),hachi(A2,B2,F2),shisoku(B1,B2,B,F1,F2,F).
hachi(A,B,B):-narabi(A,B).

narabi(A,B):- A>=2,A1 is A-1,narabi(A1,B1),B is B1*10+8.
narabi(1,8).
m(2,1):-!.
m(N,1).
m(N,X):-N1 is N-1,m(N1,X1),X is X1+1.

wakeru(A,B,C):- 1>=A,!,fail.
wakeru(A,A1,A2):-m(A,A1),A2 is A-A1.
／／／／／／／／／／／／／／／／／／／／／／／

1?-hachi(7,2008,X).  で解無し。

1 ?- hachi(8,2008,X).
X = 88- (8+8)* (8-8* (8+8)) ;
X = 88- (8+8)* (8- (8+8)*8) ;
X = 88+ (8+8)* (8* (8+8)-8)  以下複数解

　問題
　８が８個で２００８を作ってみましょう。使えるのは四則演算とケタくっつけ（８、８８、８８８、・・・）。

　というのができるが、手で解くにはこのままでは苦しい。

　あと、ソース内の割り算のゼロ割封じのコードがよろしくない。（コードとしてＮＧ）と表記。そこに限らず、小数の扱いが怪しい。

　８が８個というのはなにやら「めでたい」感じ。
　そして、答えが
　（＊＊＊＊）×８　でなく
　（＊＊＊＊）＋８８　になるのが面白いところ。

 　工夫すれば問題として立派になるかも。

追加20081227
 　もう少し練ってみた。これならば、手でも解ける。そして唯一解。

　問題：

　８８　　８　　８　　８　　８　　８８　＝２００８

　左辺（８８が２個、８が４個）に書き足して式が成り立つようにしてください。使える記号は＋、－、×、÷、（カッコ）です。