20 lines
640 B
Text
20 lines
640 B
Text
#import std
|
|
|
|
text =
|
|
|
|
-[Given$a$text$file$of$many$lines,$where$fields$within$a$line$
|
|
are$delineated$by$a$single$'dollar'$character,$write$a$program
|
|
that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$
|
|
column$are$separated$by$at$least$one$space.
|
|
Further,$allow$for$each$word$in$a$column$to$be$either$left$
|
|
justified,$right$justified,$or$center$justified$within$its$column.]-
|
|
|
|
pad = sep`$*; @FS ~&rSSSK7+ (zipp` ^*D\~& leql$^)*rSSK7+ zipp0^*D/leql$^ ~&
|
|
|
|
just_left = mat` *+ pad
|
|
just_right = mat` *+ pad; ==` ~-rlT**
|
|
just_center = mat` *+ pad; ==` ~-rK30PlrK31PTT**
|
|
|
|
#show+
|
|
|
|
main = mat0 <.just_left,just_center,just_right> text
|