Rosetta Code 100 doors using J
rosettacode.org