Railway circuit: Difference between revisions
J initial draft
(→{{header|Wren}}: Replaced existing solution, which apparently was wrong, with a Julia translation.) |
(J initial draft) |
||
Line 412:
1 1 1 0 1 1 1 0 1 1 1 0 1 1 1 0
</pre>
=={{header|J}}==
Minimal implementation (no extra credit):<lang J>NB. is circuit valid?
vrwc=: {{ */1=({:,1++/)*/\^j.1r6p1*y }}"1
NB. canonical form for circuit:
crwc=: {{ {.\:~,/(i.#y)|."0 1/(,|.)y,:-y }}"1</lang>
Task examples:<lang J> ~.crwc _1^#:I.vrwc _1^#:i.2^12
1 1 1 1 1 1 1 1 1 1 1 1
~.crwc _1^#:I.vrwc _1^#:i.2^16
1 1 1 1 1 1 1 _1 1 1 1 1 1 1 1 _1
~.crwc _1^#:I.vrwc _1^#:i.2^20
1 1 1 1 1 1 1 1 _1 _1 1 1 1 1 1 1 1 1 _1 _1
1 1 1 1 1 1 1 _1 1 1 _1 1 1 1 1 1 1 1 _1 _1
1 1 1 1 1 1 1 _1 1 _1 1 1 1 1 1 1 1 _1 1 _1
1 1 1 1 1 1 _1 1 1 _1 1 1 1 1 1 1 _1 1 1 _1
1 1 1 1 1 _1 1 1 1 _1 1 1 1 1 1 _1 1 1 1 _1
1 1 1 1 _1 1 1 1 1 _1 1 1 1 1 _1 1 1 1 1 _1</lang>
=={{header|Java}}==
| |||