Railway circuit: Difference between revisions
→{{header|J}}: fill out rest of examples
m (→{{header|J}}) |
(→{{header|J}}: fill out rest of examples) |
||
Line 422:
NB. all valid railway circuits with y 30 degree curves
rwc=: {{
r=
h=
sfx=
for_pfx. (-h){."1 #:i.2^_3+h do. p=.2|+/pfx
r=
end.
'SLR'{~~.r
}}
NB. all valid railway circuits with y 30 degree curves and x straight segments
rwcs=: {{
r=. EMPTY
h=. -:y+x
sfx=. (h#3)#:i.3^h
for_pfx. sfx do.
r=. r,~.crwc (#~ vrwc) (#~ x= 0 +/ .="1]) 0 1 _1{~pfx,"1 sfx
end.
'SLR'{~~.r
}}</lang>
Task examples (partial extra credit):<lang J>
LLLLLLLLLLLL
LLLLLLLRLLLLLLLR
LLLLLLLLRRLLLLLLLLRR
LLLLLLLRLLRLLLLLLLRR
Line 442 ⟶ 453:
LLLLLRLLLRLLLLLRLLLR
LLLLRLLLLRLLLLRLLLLR
#
40
#
293
#
2793
4 rwcs 12
LLLLLLSSLLLLLLSS
LLLLLSLSLLLLLSLS
LLLLSLLSLLLLSLLS
LLLSLLLSLLLSLLLS</lang>
Symbols:
R: right (-1)
L: left ( 1)
S: straight ( 0)
=={{header|Java}}==
| |||