suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sequence-length: special-case lists too.

Browse Source
This commit is contained in:
Vincent St-Amour 2016-01-03 12:57:21 -06:00
parent a2c9b47552
commit 1e18a7e2b4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/sequence.rkt
View File

@ -41,7 +41,8 @@
(define (sequence-length s) (define (sequence-length s)
(unless (sequence? s) (raise-argument-error 'sequence-length "sequence?" s)) (unless (sequence? s) (raise-argument-error 'sequence-length "sequence?" s))
(cond [(vector? s) (vector-length s)] (cond [(list? s) (length s)]
[(vector? s) (vector-length s)]
[(hash? s) (hash-count s)] [(hash? s) (hash-count s)]
[else [else
(for/fold ([c 0]) ([i (in-values*-sequence s)]) (for/fold ([c 0]) ([i (in-values*-sequence s)])