scolobb
/
dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Indentation.

This commit is contained in:
Sergiu Ivanov 2022-02-18 16:04:39 +01:00
parent 6679db9aa4
commit f6946d94ad
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils.rkt
View File

@ -455,13 +455,13 @@
(sequence->list (in-values-sequence (apply in-parallel lists))))
(module+ test
(test-case "lists-transpose"
(check-equal? (lists-transpose '((1 2) (a b))) '((1 a) (2 b)))))
(test-case "lists-transpose"
(check-equal? (lists-transpose '((1 2) (a b))) '((1 a) (2 b)))))
(: in-random (case->
(-> (Sequenceof Flonum))
(-> Integer (Sequenceof Nonnegative-Fixnum))
(-> Integer Integer (Sequenceof Nonnegative-Fixnum))))
(-> (Sequenceof Flonum))
(-> Integer (Sequenceof Nonnegative-Fixnum))
(-> Integer Integer (Sequenceof Nonnegative-Fixnum))))
(define in-random
(case-lambda
[() (stream-cons (random) (in-random))]