Submission #54433617

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
(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)
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

(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

Judge Result