24 game/Solve: Difference between revisions

Content added Content deleted

Inline

@@ Line 187: / Line 187: @@
-	if($ent !~ m/^[1-9] [1-9] [1-9] [1-9]$/){ print "invalid input\n"; next }
+	if($ent !~ /^[1-9] [1-9] [1-9] [1-9]$/){ print "invalid input\n"; next }
 	@n = split / /,$ent;
 	permute { push @numbers,join ' ',@_ }@n;
-	for(@formats)
+	for $format (@formats)
 	{
-		$format = $_;
 		for(@numbers)
 		{