15 lines
278 B
Text
15 lines
278 B
Text
$ENTRY Go {
|
|
= <Prout <Join ('. ') <Split (',') 'Hello,How,Are,You,Today'>>>;
|
|
};
|
|
|
|
Split {
|
|
(e.S) = ;
|
|
(e.S) e.1 e.S e.2 = (e.1) <Split (e.S) e.2>;
|
|
(e.S) e.1 = (e.1);
|
|
};
|
|
|
|
Join {
|
|
(e.J) = ;
|
|
(e.J) (e.1) = e.1;
|
|
(e.J) (e.1) e.2 = e.1 e.J <Join (e.J) e.2>;
|
|
};
|