Railway circuit: Difference between revisions

m
→‎{{header|Raku}}: remove copious copies
m (→‎{{header|Raku}}: use hyper instead)
m (→‎{{header|Raku}}: remove copious copies)
Line 1,208:
 
sub addsymmetries(%infound, \turns) {
sub circularsymmetries(@c is copy) { (0..^+@c).map: {rotate @c, $_} }
my @allsym = |(circularsymmetries turns), |(circularsymmetries turns »*» -1);
%infound{$_.Str} = 1 for @allsym;
Line 1,214:
}
 
sub isclosedpath(@turns is copy, \straight, \start= 𝒫.bless: x => 0, y => 0) {
return False unless ( @turns.sum % (straight ?? 4 !! 12) ) == 0;
my ($angl, $point) = (0, start);
351

edits