Jun 15, 2019, 11:19 AM by a...@software-lab.de: > : (make (link '@) (mapc link (chop S)) (link '@)) > -> (@ "t" "s" "t" @) > > or better > : (make (link '@) (chain (chop S)) (link '@)) > -> (@ "t" "s" "t" @) > > The shortest and fastest way is probably: > : (conc (cons '@) (chop S) '(@)) > -> (@ "t" "s" "t" @) > Basically (cons '(@)(chop S)'(@)) Neat solution. Thanks!
JmageK -- Securely sent with Tutanota -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
