diff options
| author | Kornelius Kalnbach <murphy@rubychan.de> | 2011-09-09 02:05:44 +0200 |
|---|---|---|
| committer | Kornelius Kalnbach <murphy@rubychan.de> | 2011-09-09 02:05:44 +0200 |
| commit | 7567e6e2f18334d3f0b5b3c6c9659a018be00e9e (patch) | |
| tree | 18104f93126d0fd3b162ffdc2cadd1da104945ff /bench/example.scheme | |
| parent | 74b05c9f583669849fded8417a8f5003be3b3c6c (diff) | |
| download | coderay-7567e6e2f18334d3f0b5b3c6c9659a018be00e9e.tar.gz | |
remove obsolete big C example code, to make this a Ruby project on GitHub
Diffstat (limited to 'bench/example.scheme')
| -rw-r--r-- | bench/example.scheme | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/bench/example.scheme b/bench/example.scheme deleted file mode 100644 index 4cb9c18..0000000 --- a/bench/example.scheme +++ /dev/null @@ -1,38 +0,0 @@ - -("") -(string=? "K. Harper, M.D." ;; Taken from Section 6.3.3. (Symbols) of the R5RS - (symbol->string - (string->symbol "K. Harper, M.D."))) -;; BEGIN Factorial -(define factorial - (lambda (n) - (if (= n 1) - 1 - (* n (factorial (- n 1)))))) -;; END Factorial - - ;; BEGIN Square - (define square - (lambda (n) ;; My first lambda - (if (= n 0) - 0 - ;; BEGIN Recursive_Call - (+ (square (- n 1)) - (- (+ n n) 1))))) - ;; END Recursive_Call - ;; END Square - -;;LIST OF NUMBERS -(#b-1111 #xffa12 #o755 #o-755 +i -i +2i -2i 3+4i 1.6440287493492101i+2 1.344 3/4 #i23/70) - -;;a vector -#('(1 2 3) #\\a 3 #t #f) - -;;macros (USELESS AND INCORRECT, JUST TO CHECK THAT IDENTIFIERS ARE RECOGNIZED RIGHT) -(syntax-case () - ((_ name field ...) - (with-syntax - ((constructor (gen-id (syntax name) "make-" (syntax name))) - (predicate (gen-id (syntax name) (syntax name) "?")) - ((access ...) - (map (lambda (x) (gen-id x "set-" (syntax name) "-" x "!"))))))))
\ No newline at end of file |