14 lines
314 B
Plaintext
14 lines
314 B
Plaintext
( get$("Hello,How,Are,You,Today",MEM):?CommaseparatedList
|
|
& :?ReverseList
|
|
& whl
|
|
' ( !CommaseparatedList:(?element,?CommaseparatedList)
|
|
& !element !ReverseList:?ReverseList
|
|
)
|
|
& !CommaseparatedList:?List
|
|
& whl
|
|
' ( !ReverseList:%?element ?ReverseList
|
|
& (!element.!List):?List
|
|
)
|
|
& out$!List
|
|
)
|