RosettaCodeData/Task/Twelve-statements/J/twelve-statements-6.j
2023-07-01 13:44:08 -04:00

2 lines
95 B
Text

(-N)&{. #: S <:@]^:((]-.@-:(apply&><)"1) (-N)&{.@#:@])^:(_) 2^N=.#S
1 0 1 1 0 1 1 0 0 0 1 0