fork download
copy 
  1. use strict;
  2. use warnings;
  3. use feature qw(say);
  4.  
  5. my @pattern = (
  6. 	undef,
  7. 	undef,
  8. 	[1],
  9. 	[1, 2],
  10. 	[1, 3],
  11. 	[1, 2, 3, 4],
  12. 	[1, 5],
  13. 	[1, 2, 3, 4, 5, 6],
  14. 	[1, 3, 5, 7],
  15. 	[1, 2, 4, 5, 7, 8],
  16. );
  17.  
  18. my @mask = (0, 1, 2, 4, 8, 16, 32, 64, 128, 256);
  19.  
  20. sub permute {
  21. 	my ($n, $v, $b, $s) = @_;
  22.  
  23. 	if ($n < 1){
  24. 		$s->($v, $b);
  25. 		return;
  26. 	}
  27. 	foreach my $i (1..9){
  28. 		($b & $mask[$i]) and next;
  29. 		permute($n - 1,  $v * 10 + $i, $b | $mask[$i], $s);
  30. 	}
  31. }
  32.  
  33. my $total = 0;
  34.  
  35. foreach my $i (1..8){
  36. 	my %memo;
  37. 	permute($i, 0, 0, sub{
  38. 		my ($d, $db) = @_;
  39.  
  40. 		foreach my $dp (2..9){
  41. 			(not ($db & $mask[$dp]) or ($d % $dp)) and next;
  42. 			foreach my $np (@{$pattern[$dp]}){
  43. 				my $n  = $d / $dp * $np;
  44. 				my $nb = $memo{$n} or next;
  45. 				(($nb ^ $mask[$np]) == ($db ^ $mask[$dp])) or next;
  46. 				# say "$n/$d";
  47. 				$total++;
  48. 			}
  49. 		}
  50.  
  51. 		$memo{$d} = $db;
  52. 	});
  53. }
  54.  
  55. say $total;
  56.  
Time limit exceeded #stdin #stdout 5s 19120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/W0maU
language:
Perl (perl 5.28.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!