fork(3) download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4. use utf8;
  5. binmode STDOUT => ':encoding(utf8)';
  6.  
  7. sub f {
  8. 	my @lists = map{ [split //] } @_;
  9.  
  10. 	my @queue = ([ [], [ (0) x @lists ] ]);
  11. 	while(@queue){
  12. 		my ($pattern, $pos) = @{ shift @queue };
  13.  
  14. 		if (not grep{ @{$lists[$_]} > $pos->[$_] } (0 .. $#lists)){
  15. 			foreach(@lists){
  16. 				my @p = @{$_};
  17. 				foreach(@{$pattern}){
  18. 					@p or last;
  19. 					print($p[0] eq $_ ? shift(@p) : '□');
  20. 				}
  21. 				print "\n";
  22. 			}
  23. 			return;
  24. 		}
  25.  
  26. 		my %memo;
  27. 		foreach my $n (0 .. $#lists){
  28. 			my $x = $lists[$n]->[$pos->[$n]];
  29. 			defined $x or next;
  30. 			if (not exists $memo{$x}){
  31. 				$memo{$x} = [ [ @{$pattern}, $x ], [ @{$pos} ] ];
  32. 				push @queue, $memo{$x};
  33. 			}
  34. 			$memo{$x}->[1]->[$n]++;
  35. 		}
  36. 	}
  37. }
  38.  
  39. f(qw(１２３ １３４));
  40. print "\n";
  41. f(qw(１２１２ １３２２ １１２２));
  42. print "\n";
  43.  
Success #stdin #stdout 0.03s 5000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
１２３
１□３４

１２１□２
１□□３２２
１□１□２２
https://ideone.com/YfE0bE
language:
Perl (perl 5.28.1)
created:
10 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!