結果

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

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
sample1.txt AC 15 ms
7,904 KB
sample2.txt AC 15 ms
7,888 KB
test1.txt AC 13 ms
7,888 KB
test2.txt AC 15 ms
7,884 KB
test3.txt AC 13 ms
7,908 KB
test4.txt AC 15 ms
7,888 KB
test5.txt AC 15 ms
7,892 KB
test6.txt AC 13 ms
7,888 KB
test7.txt AC 14 ms
7,892 KB
test8.txt AC 15 ms
7,888 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