Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
14
Task/Variadic-function/XLISP/variadic-function.l
Normal file
14
Task/Variadic-function/XLISP/variadic-function.l
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
(defun print-on-separate-lines (&rest xs)
|
||||
(for-each print xs))
|
||||
|
||||
; test the function:
|
||||
|
||||
(print-on-separate-lines 'i 'am 'doing 'a 'great 'work 'so 'that 'i 'cannot 'come 'down)
|
||||
|
||||
; to use it on a list of arguments assembled at run time, first create your list
|
||||
|
||||
(define test '(why should the work cease whilst i leave it and come down to you))
|
||||
|
||||
; and then call APPLY:
|
||||
|
||||
(apply print-on-separate-lines test)
|
||||
Loading…
Add table
Add a link
Reference in a new issue