RosettaCodeData/Task/Introspection/J/introspection-3.j

2 lines
58 B
Plaintext

((],&(+/);@#~)((=<.)@[^:](''-:$)*.0=0{.@#,)&>)".&.>4!:1]0