SketchyLISP Reference |
Copyright (C) 2007 Nils M Holm |
<<[if] | [Index] | [integer?]>> |
Conformance: SketchyLISP Core
Purpose: Convert a number to an integer.
Arguments:
A - number
Implementation:
(define (integer a) (letrec ((_integer (lambda (a) (cond ((eq? (car a) '+) a) ((eq? (car a) '-) a) (else (cons '+ a)))))) (list->integer (_integer (integer->list a)) #t)))
Example:
(integer 567) => +567
<<[if] | [Index] | [integer?]>> |