6 lines
142 B
PostScript
6 lines
142 B
PostScript
/doors [ 100 { false } repeat ] def
|
|
|
|
1 1 100 { dup 1 sub exch 99 {
|
|
dup doors exch get not doors 3 1 roll put
|
|
} for } for
|
|
doors pstack
|