提出 #14716098


ソースコード 拡げる

Copy
get_number(Number) :-
    get_string(String),
    number_string(Number, String).

get_string(String) :-
    current_input(Input),
    read_string(Input, ' \n', '', _, String).

/* memo
    code(int)
    string_code(1, S, C), (C: code)
    char_code(X, Y) (X: char, Y: code)

    f(0, [], []).
    f(Z, [X|Xs], [Y|Ys]) :- X = Y, f(Z1, Xs, Ys), Z is Z1 + 1.
    f(Z, [_|Xs], [_|Ys]) :- f(Z, Xs, Ys).
*/

main :-
    get_number(A),
    get_number(B),
    X is max(max(A + B, A - B), A * B),
    writeln(X).

提出情報

提出日時
問題 A - +-x
ユーザ spica314
言語 Prolog (SWI-Prolog 8.0.3)
得点 100
コード長 527 Byte
結果 AC
実行時間 31 ms
メモリ 8184 KB

ジャッジ結果

セット名 All Sample
得点 / 配点 100 / 100 0 / 0
結果
AC × 12
AC × 3
セット名 テストケース
All sample_01, sample_02, sample_03, testcase_0, testcase_1, testcase_2, testcase_3, testcase_4, testcase_5, testcase_6, testcase_7, testcase_8
Sample sample_01, sample_02, sample_03
ケース名 結果 実行時間 メモリ
sample_01 AC 29 ms 8008 KB
sample_02 AC 26 ms 8184 KB
sample_03 AC 28 ms 8112 KB
testcase_0 AC 28 ms 8012 KB
testcase_1 AC 31 ms 8144 KB
testcase_2 AC 26 ms 7904 KB
testcase_3 AC 28 ms 7888 KB
testcase_4 AC 27 ms 8148 KB
testcase_5 AC 31 ms 7892 KB
testcase_6 AC 29 ms 8180 KB
testcase_7 AC 29 ms 8184 KB
testcase_8 AC 25 ms 8184 KB