結果

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

テストケース

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