結果

問題 No.481 1から10
ユーザー nohopen
提出日時 2019-02-11 20:23:52
言語 Scheme
(Gauche-0.9.5)
結果
AC  
実行時間 17 ms
コード長 189 Byte
コンパイル時間 10 ms
使用メモリ 7,924 KB
最終ジャッジ日時 2019-08-09 05:23:35

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
sample1.txt AC 15 ms
7,912 KB
sample2.txt AC 15 ms
7,908 KB
test1.txt AC 17 ms
7,904 KB
test2.txt AC 16 ms
7,888 KB
test3.txt AC 16 ms
7,892 KB
test4.txt AC 16 ms
7,924 KB
test5.txt AC 16 ms
7,908 KB
test6.txt AC 16 ms
7,904 KB
test7.txt AC 17 ms
7,892 KB
test8.txt AC 17 ms
7,896 KB
テストケース一括ダウンロード
コンパイルメッセージ

                

                

ソースコード

diff #
(define (check lis)
  (- 55 (fold + 0 lis)))

(define (create-list n)
  (if (= n 0) '()
      (cons (read) (create-list (- n 1)))))

(define (main args)
  (print (check (create-list 9))) 0)
0