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