7 lines
189 B
PostScript
7 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
|
||
|
|
}.
|