fork download
copy 
  1. use warnings;
  2. my @iparray=("return","revert","reveal","rebel","real","relm","reign","response");
  3. my @sortedarray=sort(@iparray);
  4. my @oparray;
  5. my $lowerlimit=0;
  6. my $upperlimit;
  7. my $count=0;
  8. my $inc=1;
  9. my $mat=0;
  10. my $matchedstring;
  11. sub splitter
  12. {
  13. 	if($mat==0)
  14. 		{
  15. 		$lowerlimit=$lowerlimit+1;
  16. 		$count=$lowerlimit;
  17. 		func();
  18. 		}
  19. 	else
  20. 		{
  21. 		$matchedstring=substr($sortedarray[$count-1],0,$mat);
  22. 		my $temp=$upperlimit;
  23. 		#print("\n",$temp);
  24. 		while($temp>=$lowerlimit)
  25. 			{
  26. 			$word=substr($sortedarray[$temp],$mat,length($sortedarray[$temp]));
  27. 			if($word eq "")
  28. 				{
  29. 				push @oparray,"\\s";
  30. 				}
  31. 			else
  32. 				{
  33. 				push @oparray ,$word;
  34. 				}
  35.  
  36. 			$temp--;
  37. 			}
  38. 		print ("\n",@oparray);
  39. 		if($upperlimit==scalar(@sortedarray))
  40. 			{
  41. 			print "All the words are parsed";
  42. 			last;
  43. 			}
  44. 		else
  45. 			{
  46. 			$lowerlimit=$upperlimit+1;
  47. 			$count=$lowerlimit;
  48. 			$inc=1;
  49. 			func();
  50. 			}
  51. 		}
  52. }
  53. sub func
  54. {
  55. 	$base=substr($sortedarray[$count],0,$inc);
  56. 	if (defined $sortedarray[$count+1])
  57. 	{
  58. 		$match=substr($sortedarray[$count+1],0,$inc) ;
  59. 	}
  60. 	else
  61. 	{
  62. 		$s=substr($sortedarray[$count-1],0,$inc);
  63. 		if($s eq $base)
  64. 		{
  65. 		$count = $lowerlimit;
  66. 		$inc++;
  67. 		print $inc;
  68. 		func();
  69. 		}
  70. 		else
  71. 		{
  72. 		last;
  73. 		}
  74. 	}
  75. 	print("\n",$base," ",$match);
  76. 	$count++;
  77. 	if($base ne $match)
  78. 		{
  79. 		if(($count-1) == $lowerlimit)
  80. 			{
  81. 			my $lcount=$count;
  82. 			my $ucount=$count+1;
  83. 			my $ulimit=$upperlimit;
  84. 			print("\n",$lcount,"\n",$ucount,"\n",$ulimit);
  85. 			while($ulimit>=0)
  86. 				{
  87. 				my $new=substr($sortedarray[$lcount],0,$inc);
  88. 				print("\n",$new);
  89. 				my $new1=substr($sortedarray[$ucount],0,$inc);
  90. 				print(" ",$new1);
  91. 				if($new eq $new1)
  92. 					{
  93. 					$upperlimit=$lcount-1;
  94. 					print("\n",$upperlimit);
  95. 					$mat=$inc-1;
  96. 					splitter();
  97. 					}
  98. 					else
  99. 					{
  100. 					$ulimit--;
  101. 					$lcount++;
  102. 					$ucount++;
  103. 					print("\n",$lcount,"\n",$ucount,"\n",$ulimit);
  104. 					}
  105. 				}
  106. 			$mat=$inc-1;
  107. 			print $mat;
  108. 			splitter();
  109. 			}
  110. 		else
  111. 			{
  112. 			$inc++;
  113. 			print $inc;
  114. 			unless(($count) == $upperlimit)
  115. 				{
  116. 				$count=$lowerlimit;
  117. 				func();
  118. 				}				
  119. 			}
  120. 		}
  121. 	else
  122. 		{
  123. 		$upperlimit=$count;
  124. 		func();
  125. 		}
  126. }
  127. func();
  128.  
Runtime error #stdin #stdout 0.01s 5336KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/avvSM
language:
Perl (perl 5.28.1)
created:
14 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!