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

Indentation.

Browse source
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)))) (sequence->list (in-values-sequence (apply in-parallel lists))))
(module+ test (module+ test
(test-case "lists-transpose" (test-case "lists-transpose"
(check-equal? (lists-transpose '((1 2) (a b))) '((1 a) (2 b))))) (check-equal? (lists-transpose '((1 2) (a b))) '((1 a) (2 b)))))
(: in-random (case-> (: in-random (case->
(-> (Sequenceof Flonum)) (-> (Sequenceof Flonum))
(-> Integer (Sequenceof Nonnegative-Fixnum)) (-> Integer (Sequenceof Nonnegative-Fixnum))
(-> Integer Integer (Sequenceof Nonnegative-Fixnum)))) (-> Integer Integer (Sequenceof Nonnegative-Fixnum))))
(define in-random (define in-random
(case-lambda (case-lambda
[() (stream-cons (random) (in-random))] [() (stream-cons (random) (in-random))]