Railway circuit: Difference between revisions
→{{header|J}}: second draft
(J initial draft) |
(→{{header|J}}: second draft) |
||
Line 414:
=={{header|J}}==
vrwc=: {{ */1=({:,1++/)*/\^j.1r6p1*y }}"1
NB. canonical form for circuit:
crwc=: {{ {.\:~,/(i.#y)|."0 1/(,|.)y,:-y }}"1
NB. generate somewhat limited set of possibilities
Task examples:<lang J> ~.crwc _1^#:I.vrwc _1^#:i.2^12▼
gen=: {{ _1^(-y){."1(#~ 0=2|+/"1) #:i.2^y-3 }}
</lang>
LLLLLLLLLLLL
'SLR'{~~.crwc (#~ vrwc) gen 16
LLLLLLLRLLLLLLLR
'SLR'{~~.crwc (#~ vrwc) gen 20
LLLLLLLLRRLLLLLLLLRR
LLLLLLLRLLRLLLLLLLRR
LLLLLLLRLRLLLLLLLRLR
LLLLLLRLLRLLLLLLRLLR
LLLLLRLLLRLLLLLRLLLR
LLLLRLLLLRLLLLRLLLLR
#'SLR'{~~.crwc (#~ vrwc) gen 24
40
#'SLR'{~~.crwc (#~ vrwc) gen 28
293</lang>
=={{header|Java}}==
|