6 lines
189 B
PostScript
6 lines
189 B
PostScript
/transpose {
|
|
[ exch {
|
|
{ {empty? exch pop} map all?} {pop exit} ift
|
|
[ exch {} {uncons {exch cons} dip exch} fold counttomark 1 roll] uncons
|
|
} loop ] {reverse} map
|
|
}.
|