From 721f40191bede609b3b1406209f460774c6275ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A1s=20B=20Nagy?=
 <20251272+BNAndras@users.noreply.github.com>
Date: Wed, 10 Jan 2024 10:56:39 -0800
Subject: [PATCH] Apply code review

---
 exercises/practice/square-root/.meta/example.rkt | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/exercises/practice/square-root/.meta/example.rkt b/exercises/practice/square-root/.meta/example.rkt
index bcb3bbae..ce6b7ffd 100644
--- a/exercises/practice/square-root/.meta/example.rkt
+++ b/exercises/practice/square-root/.meta/example.rkt
@@ -2,7 +2,9 @@
 
 (provide square-root)
 
-(define (square-root radicand)
-    (for/first ([num (in-naturals)]
-                #:when (equal? (expt num 2) radicand))
-      num))
\ No newline at end of file
+(define/contract (square-root radicand)
+  (-> exact-positive-integer? (or/c exact-positive-integer?
+                                    false?))
+  (for/first ([num (in-inclusive-range 1 radicand)]
+              #:when (equal? (expt num 2) radicand))
+    num))