diff options
Diffstat (limited to 'others/volume1/122.scm')
-rw-r--r-- | others/volume1/122.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/others/volume1/122.scm b/others/volume1/122.scm new file mode 100644 index 0000000..63b1032 --- /dev/null +++ b/others/volume1/122.scm @@ -0,0 +1,6 @@ +(define (sqr x) (* x x)) +(let loop ((r (read))) + (unless (eof-object? r) + (let ((a (read)) (b (read))) + (display (if (< (sqr (* r 2)) (+ (sqr a) (sqr b))) "NO\n" "YES\n"))) + (loop (read)))) |