37 lines
797 B
Text
37 lines
797 B
Text
[ over find swap found ] is has ( $ c --> b )
|
|
|
|
[ over 0 peek
|
|
char - = iff
|
|
[ dip [ behead drop ]
|
|
true unrot ]
|
|
else [ false unrot ]
|
|
over char . swap find
|
|
- char 0 swap of
|
|
swap join
|
|
swap iff char -
|
|
else space
|
|
swap join ] is left-pad ( $ n --> $ )
|
|
|
|
[ over char . has not if
|
|
[ dip [ char . join ] ]
|
|
over char . swap find
|
|
dip [ over size ]
|
|
1+ - -
|
|
char 0 swap of
|
|
join ] is right-pad ( $ n --> $ )
|
|
|
|
[ dip left-pad right-pad ] is format ( $ n n --> $ )
|
|
|
|
' [ $ "7.125"
|
|
$ "-7.125"
|
|
$ "0.125"
|
|
$ "-0.12"
|
|
$ "7.12"
|
|
$ "-7.12"
|
|
$ "0.12"
|
|
$ "-0.12"
|
|
$ "7"
|
|
$ "-7"
|
|
$ "0" ]
|
|
witheach
|
|
[ do 5 3 format echo$ cr ]
|