Word wrap: Difference between revisions
Content added Content deleted
Line 2,385: | Line 2,385: | ||
=={{header|Klingphix}}== |
=={{header|Klingphix}}== |
||
<lang Klingphix>:wordwrap %long |
<lang Klingphix>:wordwrap %long !long |
||
%ps 0 |
%ps 0 !ps |
||
split |
split |
||
len [ drop |
len [ drop |
||
pop swap len |
pop swap len $ps + !ps |
||
$ps $long > [ len !ps nl ] if |
|||
print " " print |
print " " print |
||
$ps 1 + !ps |
|||
] for |
] for |
||
drop |
drop |