mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
12 lines
329 B
Scheme
12 lines
329 B
Scheme
|
|
(define (show-string str)
|
|
(display "string: ")
|
|
(display (substring str 0 (min (string-length str) 4)))
|
|
(display "...\n"))
|
|
|
|
(define str-length (inexact->exact (round (* 2 1024 1024)))) ;; 2MB
|
|
(define str1 (make-string str-length #\a))
|
|
(show-string str1)
|
|
|
|
(define str2 (call-with-input-string str1 read))
|
|
(show-string str2)
|