Você não pode selecionar mais de 25 tópicos
Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
|
- (module util (curry applied thunk just perhaps compose-symbols)
- (import scheme)
- (import chicken.base)
- (import srfi-13)
-
- (define (curry fn a)
- (lambda (b)
- (fn a b)))
-
- (define (applied fn)
- (curry apply fn))
-
- (define-syntax thunk
- (syntax-rules ()
- ((_ exp ...)
- (lambda () exp ...))))
-
- (define (just fn)
- (lambda args
- (fn)))
-
- (define (perhaps fn arg)
- (if arg
- (fn arg)
- arg))
-
- (define (compose-symbols . ln)
- (string->symbol (string-concatenate (intersperse (map symbol->string ln) "-")))))
|