From 7ebfa64719d4ac86b30075c65f21eafe9097853e Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Wed, 22 Feb 2017 14:51:37 +0700
Subject: Updare README.md

---
 others/volume1/122.scm | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 others/volume1/122.scm

(limited to 'others/volume1/122.scm')

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))))
-- 
cgit 1.4.1