mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 10:37:58 +03:00
17 lines
364 B
Plaintext
17 lines
364 B
Plaintext
;; Testing basic Scheme interop
|
|
|
|
(scm-eval "(+ 1 1)")
|
|
;=>2
|
|
|
|
(scm-eval "(begin (display \"Hello World!\") (newline))")
|
|
; "Hello World!"
|
|
|
|
(scm-eval "(string->list \"MAL\")")
|
|
;=>("M" "A" "L")
|
|
|
|
(scm-eval "(map + '(1 2 3) '(4 5 6))")
|
|
;=>(5 7 9)
|
|
|
|
(scm-eval "(string-map (lambda (c) (integer->char (+ 65 (modulo (+ (- (char->integer c) 65) 13) 26)))) \"ZNY\")")
|
|
;=>"MAL"
|