retroforth/example/words-four-column.retro

28 lines
684 B
Forth
Raw Normal View History

This is a four column version of `d:words`. It's pretty straightforward.
The code first scans through the dictionary to find the longest name. Shorter
names will be padded to make sure all columns line up. It then displays each
name, updating a column counter and adding newlines when needed.
~~~
{{
#3 'Columns var-n
'PadTo var
:determine-padding
#0 [ d:name s:length n:max ] d:for-each !PadTo ;
:print-name
d:name [ s:put ] [ s:length @PadTo swap - &sp times ] bi sp sp ;
:wrap? @Columns n:zero? dup [ #4 !Columns ] if &Columns v:dec ;
---reveal---
:d:words-4
determine-padding [ print-name wrap? &nl if ] d:for-each ;
}}
~~~
Test it.
```
d:words-4
```