4 lines
114 B
Text
4 lines
114 B
Text
100:c;[{0}c*]:d;
|
|
c,{.c,>\)%{.d<\.d=1^\)d>++:d;}/}/
|
|
[c,{)"door "\+" is"+}%d{{"open"}{"closed"}if}%]zip
|
|
{" "*puts}/
|