You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
sugar/len.rkt

16 lines
583 B
Racket

#lang racket/base
10 years ago
(require racket/set racket/sequence)
(require "define.rkt")
10 years ago
(define+provide/contract (len x)
((or/c list? vector? set? sequence? string? symbol? path? hash?) . -> . integer?)
(cond
[(list? x) (length x)]
[(string? x) (string-length x)]
[(symbol? x) (len (symbol->string x))]
[(path? x) (len (path->string x))]
11 years ago
[(vector? x) (vector-length x)]
[(hash? x) (len (hash-keys x))]
11 years ago
[(set? x) (len (set->list x))]
10 years ago
[(and (sequence? x) (not (integer? x))) (len (sequence->list x))]
[else (error "len: cant calculate length of" x)]))