Skip to content

Commit 0baa733

Browse files
authored
Merge pull request #69 from herwinw/hello_world
Updated hello-world exercise
2 parents c65b370 + d233338 commit 0baa733

File tree

2 files changed

+2
-9
lines changed

2 files changed

+2
-9
lines changed

exercises/hello-world/example.scm

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,4 @@
11
(define-module (hello-world)
22
#:export (hello))
33

4-
(define hello
5-
(lambda* (#:optional name)
6-
(let ((target (or name "World")))
7-
(string-concatenate (list "Hello, " target "!")))))
4+
(define (hello) "Hello, World!")

exercises/hello-world/hello-world-test.scm

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -10,12 +10,8 @@
1010

1111
(test-begin "hello-world")
1212

13-
(test-assert "Called with no args returns hello world"
13+
(test-assert "Say Hi!"
1414
(equal? (hello)
1515
"Hello, World!"))
1616

17-
(test-assert "Called with an arg returns hello arg"
18-
(equal? (hello "exercism")
19-
"Hello, exercism!"))
20-
2117
(test-end "hello-world")

0 commit comments

Comments
 (0)