source: project/release/3/crunch/trunk/numbers.scm @ 9918

Last change on this file since 9918 was 9918, checked in by Kon Lovett, 13 years ago

Using canonical directory structure.

File size: 938 bytes
Line 
1(define-syntax pr
2  (syntax-rules ()
3    ((_ x ...) (begin (display x) ... (newline)))))
4
5(pr (modulo 13 4));                   ===>  1
6(pr (remainder 13 4));                ===>  1
7
8(pr (modulo -13 4));                  ===>  3
9(pr (remainder -13 4));               ===>  -1
10
11(pr (modulo 13 -4));                  ===>  -3
12(pr (remainder 13 -4));               ===>  1
13
14(pr (modulo -13 -4));                 ===>  -1
15(pr (remainder -13 -4));              ===>  -1
16
17(pr (number->string 33 10))
18(pr (number->string 33 2))
19(pr (number->string 33 8))
20(pr (number->string 33 16))
21
22(pr (number->string 33 10))
23(pr (number->string 33.45 10))
24(pr (number->string 1.2e-5 10))
25
26(pr (string->number "123" 10))
27(pr (let ((t::double (string->number "123.5" 10))) t::double))
28(pr (string->number "123" 16))
29(pr (+ 3 (string->number "123" 16)))
30(pr (remainder (string->number "123.7" 16) 2)) ; returns int result
31(pr (sin (string->number "123.5" 10)))
Note: See TracBrowser for help on using the repository browser.