結果
問題 | No.722 100×100=1000 |
ユーザー | ikd |
提出日時 | 2019-08-01 19:22:02 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 25 ms / 2,000 ms |
コード長 | 400 bytes |
コンパイル時間 | 128 ms |
コンパイル使用メモリ | 5,296 KB |
実行使用メモリ | 12,844 KB |
最終ジャッジ日時 | 2023-08-28 15:58:01 |
合計ジャッジ時間 | 2,201 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 25 ms
12,608 KB |
testcase_01 | AC | 24 ms
12,688 KB |
testcase_02 | AC | 25 ms
12,764 KB |
testcase_03 | AC | 24 ms
12,636 KB |
testcase_04 | AC | 24 ms
12,612 KB |
testcase_05 | AC | 23 ms
12,680 KB |
testcase_06 | AC | 24 ms
12,604 KB |
testcase_07 | AC | 23 ms
12,752 KB |
testcase_08 | AC | 24 ms
12,680 KB |
testcase_09 | AC | 24 ms
12,748 KB |
testcase_10 | AC | 24 ms
12,644 KB |
testcase_11 | AC | 25 ms
12,608 KB |
testcase_12 | AC | 24 ms
12,628 KB |
testcase_13 | AC | 25 ms
12,764 KB |
testcase_14 | AC | 24 ms
12,844 KB |
testcase_15 | AC | 24 ms
12,624 KB |
testcase_16 | AC | 24 ms
12,744 KB |
testcase_17 | AC | 24 ms
12,796 KB |
testcase_18 | AC | 24 ms
12,792 KB |
testcase_19 | AC | 24 ms
12,688 KB |
testcase_20 | AC | 24 ms
12,644 KB |
testcase_21 | AC | 24 ms
12,744 KB |
testcase_22 | AC | 24 ms
12,684 KB |
testcase_23 | AC | 24 ms
12,688 KB |
testcase_24 | AC | 24 ms
12,792 KB |
testcase_25 | AC | 24 ms
12,688 KB |
testcase_26 | AC | 24 ms
12,792 KB |
testcase_27 | AC | 24 ms
12,616 KB |
testcase_28 | AC | 24 ms
12,692 KB |
testcase_29 | AC | 24 ms
12,768 KB |
testcase_30 | AC | 24 ms
12,684 KB |
ソースコード
#! /usr/bin/env gosh (define (count-nz n) (if (= n 0) 0 (+ (if (= (modulo n 10) 0) 0 1) (count-nz (quotient n 10))))) (define (hand n) (and (= (mod n 100) 0) (= (count-nz n) 1))) (let* ([a (read)] [b (read)] [p (* a b)]) (if (and (hand a) (hand b)) (display (quotient p 10)) (if (< (abs p) 100000000) (display p) (display "E"))))