ND
((cond1) (branch1))
((cond2) (branch2)))
Size: a a a
ND
c
cond (condition) result
else cond (condition) result
(cond ((condition) result) (else (cond ((condition) result)))
?(cond ((condition1) result1) ((condition2) result2))
будет короче и прощеTT
(cond ((condition) result) (else (cond ((condition) result)))
?(cond ((condition1) result1) ((condition2) result2))
будет короче и прощеTT
TT
(cond ((condition) result) (else (cond ((condition) result)))
?(cond ((condition1) result1) ((condition2) result2))
будет короче и прощеc
AT
AP
(use-module (ice-9 popen))
AT
(use-module (ice-9 popen))
(let ((port ((@@ (ice-9 popen) open-input-pipe) "ls && sleep 5s")))
(waitpid WAIT_ANY)
(display ((@@ (ice-9 rdelim) read-delimited) "" port))
((@@ (ice-9 popen) close-pipe) port))
AT
Aß
Aß
AT
Aß
Aß
AT
Aß
Aß