アカウント名:
パスワード:
operator = ["+", "-", "*", "/"]answer = 0while True: try: for o1 in operator: for o2 in operator: for o3 in operator:
こういうのはPrologが得意なような?すっかり忘れたけど。
Prologの学習中なんで書いてみたけど、B-Prologに固有の述語に依存したコードしか書けなかった
main(N) :- N 0, !.main(N) :- sub(N, OP1, OP2, OP3, OP4), format('~d = 6 ~s 4 ~s 5 ~s 2 ~s 1~n', [N, OP1, OP2, OP3, OP4]), N2 is N - 1, main(N2).
sub(N, OP1, OP2, OP3, OP4) :- OPs = [OP1, OP2, OP3, OP4], OPs in ["+", "-", "*", "/"],
より多くのコメントがこの議論にあるかもしれませんが、JavaScriptが有効ではない環境を使用している場合、クラシックなコメントシステム(D1)に設定を変更する必要があります。
目玉の数さえ十分あれば、どんなバグも深刻ではない -- Eric Raymond
python (スコア:1)
operator = ["+", "-", "*", "/"]
answer = 0
while True:
try:
for o1 in operator:
for o2 in operator:
for o3 in operator:
Prolog (スコア:1)
こういうのはPrologが得意なような?
すっかり忘れたけど。
-- う~ん、バッドノウハウ?
Re: (スコア:0)
Prologの学習中なんで書いてみたけど、B-Prologに固有の述語に依存したコードしか書けなかった
main(N) :- N 0, !.
main(N) :-
sub(N, OP1, OP2, OP3, OP4),
format('~d = 6 ~s 4 ~s 5 ~s 2 ~s 1~n', [N, OP1, OP2, OP3, OP4]),
N2 is N - 1,
main(N2).
sub(N, OP1, OP2, OP3, OP4) :-
OPs = [OP1, OP2, OP3, OP4],
OPs in ["+", "-", "*", "/"],