8 lines
193 B
Text
8 lines
193 B
Text
zebra=: (-i.5)|."0 1 (<(<'zebra') 1}ehs),4$<ehs
|
|
|
|
solve3=: 4 :0
|
|
p=. *./@:((0~:#)S:0)
|
|
f=. [:~.&.> [: compose&.>~/y&,
|
|
z=. f^:(3>[:#(#~p"1)&>)^:_ <,:x
|
|
> (#~([:*./[:;[:<@({.~:}.)\.;)"1)(#~p"1); z
|
|
)
|