2715 |
(loop (format t "~&Number: ") |
(loop (format t "~&Number: ") |
2716 |
(let ((n (parse-integer (read-line) :junk-allowed t))) |
(let ((n (parse-integer (read-line) :junk-allowed t))) |
2717 |
(when (not n) (return)) |
(when (not n) (return)) |
2718 |
(format t "~&The square root of ~D is ~D.~ |
(format t "~&The square root of ~D is ~D.~%" n (sqrt n))))) |
2719 |
@result{} SQRT-ADVISOR |
@result{} SQRT-ADVISOR |
2720 |
(sqrt-advisor) |
(sqrt-advisor) |
2721 |
@t{ |> } Number: @b{|>>}@t{5 @t{@i{[<--}~]}}@b{<<|} |
@t{ |> } Number: @b{|>>}@t{5 @t{@i{[<--}~]}}@b{<<|} |