Line 1,880:
(loop (append (map (lambda (i) (cons (car s) i)) res) res) (cdr s)))))
</lang>
</lang>output<lang>▼
▲Output:</lang>output<lang>
'((e d c b a)
(e d c b)
Line 1,914:
(a)
())
</lang>
=={{header|Seed7}}==
| |||
edits