From e0e67bea9dcf68778889a2d22224a6226347671d Mon Sep 17 00:00:00 2001 From: Kaijie Chen Date: Fri, 18 Dec 2020 20:35:03 +0800 Subject: [PATCH] Adjust position of the blanks This way, the test framework can throw the correct errors for this test as it only allows blanks to appear first. Also, adjust the answer correspondingly. --- koans-solved/let.lisp | 8 ++++---- koans/let.lisp | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/koans-solved/let.lisp b/koans-solved/let.lisp index f3a47cbf..778e9072 100644 --- a/koans-solved/let.lisp +++ b/koans-solved/let.lisp @@ -17,14 +17,14 @@ ;; created: a symbol that names a variable becomes bound to a value. (let ((x 10) (y 20)) - (assert-equal (+ x y) 30) + (assert-equal 30 (+ x y)) ;; It is possible to shadow previously visible bindings. (let ((y 30)) - (assert-equal (+ x y) 40)) - (assert-equal (+ x y) 30)) + (assert-equal 40 (+ x y))) + (assert-equal 30 (+ x y))) ;; Variables bound by LET have a default value of NIL. (let (x) - (assert-equal x nil))) + (assert-equal nil x))) (define-test let-versus-let* ;; LET* is similar to LET, except the bindings are established sequentially, diff --git a/koans/let.lisp b/koans/let.lisp index fef4a9a2..4f9b08e1 100644 --- a/koans/let.lisp +++ b/koans/let.lisp @@ -17,14 +17,14 @@ ;; created: a symbol that names a variable becomes bound to a value. (let ((x 10) (y 20)) - (assert-equal (+ x y) ____) + (assert-equal ____ (+ x y)) ;; It is possible to shadow previously visible bindings. (let ((y 30)) - (assert-equal (+ x y) ____)) - (assert-equal (+ x y) ____)) + (assert-equal ____ (+ x y))) + (assert-equal ____ (+ x y))) ;; Variables bound by LET have a default value of NIL. (let (x) - (assert-equal x ____))) + (assert-equal ____ x))) (define-test let-versus-let* ;; LET* is similar to LET, except the bindings are established sequentially,