dane/d-
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Whitespace cleanup

Browse Source
This commit is contained in:
Dane Johnson
2025-01-03 10:28:27 -06:00
parent ec07a4e2ea
commit 337ddf8396
3 changed files with 61 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
test.scm
View File

@@ -34,8 +34,8 @@
(define-test-suite "for"
(define-test "permutation"
(define value (for ([i (iota 2)]
[j (iota 2)])
(cons i j)))
[j (iota 2)])
(cons i j)))
(assert-equal '((0 . 0) (0 . 1) (1 . 0) (1 . 1)) value)))
(define-test-suite "if-let"
@@ -76,8 +76,8 @@
(define number-generator
(generator
(let loop ([i 1])
(yield i)
(loop (1+ i)))))
(yield i)
(loop (1+ i)))))
(assert-equal 1 (number-generator))
(assert-equal 2 (number-generator))
(assert-equal 3 (number-generator))
@@ -88,18 +88,18 @@
(define (liars)
(amb-reset)
(let ([betty (amb 1 2 3 4 5)]
[ethel (amb 1 2 3 4 5)]
[joan (amb 1 2 3 4 5)]
[kitty (amb 1 2 3 4 5)]
[mary (amb 1 2 3 4 5)])
;; The "Liars" problem
(amb-require (distinct? betty ethel joan kitty mary))
(amb-require (or (= kitty 1) (= betty 3)))
(amb-require (or (= ethel 1) (= joan 2)))
(amb-require (or (= joan 3) (= ethel 5)))
(amb-require (or (= kitty 2) (= mary 4)))
(amb-require (or (= mary 4) (= betty 1)))
(list betty ethel joan kitty mary)))
[ethel (amb 1 2 3 4 5)]
[joan (amb 1 2 3 4 5)]
[kitty (amb 1 2 3 4 5)]
[mary (amb 1 2 3 4 5)])
;; The "Liars" problem
(amb-require (distinct? betty ethel joan kitty mary))
(amb-require (or (= kitty 1) (= betty 3)))
(amb-require (or (= ethel 1) (= joan 2)))
(amb-require (or (= joan 3) (= ethel 5)))
(amb-require (or (= kitty 2) (= mary 4)))
(amb-require (or (= mary 4) (= betty 1)))
(list betty ethel joan kitty mary)))
(assert-equal '(3 5 2 1 4) (liars))))
(define-test-suite "json"