Welcome to the CHICKEN Scheme pasting service

take vs. take! added by DeeEff on Sun Oct 15 04:41:19 2017

#;1> (use srfi-1)
; loading /opt/chicken-4.12.0//lib/chicken/8/srfi-1.import.so ...
; loading library srfi-1 ...
#;2> (define xs (list 1 2 3 4 5 6))
#;3> (define ys (take xs 3))
#;4> xs
(1 2 3 4 5 6)
#;5> ys
(1 2 3)
#;6> (define zs (take! xs 3))
#;7> xs
(1 2 3)
#;8> zs
(1 2 3)
#;9>
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which one-argument R5RS procedure returns 2 when given `'(1 2 3)' as input?
Visually impaired? Let me spell it for you (wav file) download WAV