Submission #54433617

Source Code Expand

(write (+ (read) (read) (read)))
(write-char #\space)
(read-char)
(define f (lambda () (let ((c (read-char)))
  (if (eof-object? c) () (begin
    (write-char c)
    (f)
  ))
)))
(f)

Submission Info

Submission Time
Task PracticeA - Welcome to AtCoder
User mikecat
Language Scheme (Gauche 0.9.12)
Score 100
Code Size 192 Byte
Status AC
Exec Time 51 ms
Memory 13124 KiB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 7
Set Name Test Cases
All 00_rnd_01.txt, 00_rnd_02.txt, 00_rnd_03.txt, 00_rnd_04.txt, 00_rnd_05.txt, 00_sample_1.txt, 00_sample_2.txt
Case Name Status Exec Time Memory
00_rnd_01.txt AC 51 ms 13124 KiB
00_rnd_02.txt AC 11 ms 11960 KiB
00_rnd_03.txt AC 11 ms 12036 KiB
00_rnd_04.txt AC 11 ms 11920 KiB
00_rnd_05.txt AC 11 ms 11948 KiB
00_sample_1.txt AC 11 ms 11996 KiB
00_sample_2.txt AC 11 ms 12012 KiB