fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4. use strict;
  5.  
  6. my $i;
  7. my @A;
  8. while(<DATA>){
  9. 	chomp;
  10. 	/\d/ ? $i = $& : push @{ $A[$i] }, $_;
  11. }
  12.  
  13. chomp( @_ = <> );
  14.  
  15. my $regex = join ".{721}", map { s/\./\\./gr =~ y/-/./r } @_[0..9];
  16.  
  17. my @L;
  18. push @L, ('.' x 5 . ( 'X' x 2 . '.' x 10 ) x 64 . 'X' x 2 . '.' x 5) x 2;
  19. push @L, '.' x length $L[0];
  20.  
  21. for my $i ( 'a26', 0, 'a48', (map { (split //, $_ * 5), 'a44' } reverse 2 .. 11), 'a4', 5, 'a52', 0, 'a26' ){
  22. 	for my $j (0 .. 6){
  23. 		$L[$j + 3] .= $i =~ /a(\d+)/ ? '.' x $1 : $A[$i][$j]
  24. 	}
  25. }
  26.  
  27. my $L = join "\n", @L;
  28.  
  29. $L =~ s/$regex.*//s or print "NOOOOO!\n";
  30.  
  31. my $sec5 = (720 - length $L) % 720;
  32.  
  33. printf "%02d:%02d\n", (int $sec5 / 12), 5 * ($sec5 % 12);
  34.  
  35.  
  36. __DATA__
  37. 0
  38. .XXXXX..
  39. XX..XXX.
  40. XX.XXXX.
  41. XXXX.XX.
  42. XXX..XX.
  43. XXX..XX.
  44. .XXXXX..
  45. ........
  46. 1
  47. ...XX...
  48. ..XXX...
  49. .XXXX...
  50. ...XX...
  51. ...XX...
  52. ...XX...
  53. .XXXXXX.
  54. ........
  55. 2
  56. .XXXXX..
  57. XX...XX.
  58. .....XX.
  59. ...XXX..
  60. .XXX....
  61. XX......
  62. XXXXXXX.
  63. ........
  64. 3
  65. .XXXXX..
  66. XX...XX.
  67. .....XX.
  68. ..XXXX..
  69. .....XX.
  70. XX...XX.
  71. .XXXXX..
  72. ........
  73. 4
  74. ...XXX..
  75. ..XXXX..
  76. .XX.XX..
  77. XX..XX..
  78. XXXXXXX.
  79. ....XX..
  80. ...XXXX.
  81. ........
  82. 5
  83. XXXXXXX.
  84. XX......
  85. XXXXXX..
  86. .....XX.
  87. .....XX.
  88. XX...XX.
  89. .XXXXX..
  90. ........
  91. 6
  92. .XXXXX..
  93. XX...XX.
  94. XX......
  95. XXXXXX..
  96. XX...XX.
  97. XX...XX.
  98. .XXXXX..
  99. ........
  100. 7
  101. XXXXXXX.
  102. XX...XX.
  103. X....XX.
  104. ....XX..
  105. ...XX...
  106. ..XX....
  107. ..XX....
  108. ........
  109. 8
  110. .XXXXX..
  111. XX...XX.
  112. XX...XX.
  113. .XXXXX..
  114. XX...XX.
  115. XX...XX.
  116. .XXXXX..
  117. ........
  118. 9
  119. .XXXXX..
  120. XX...XX.
  121. XX...XX.
  122. .XXXXXX.
  123. .....XX.
  124. XX...XX.
  125. .XXXXX..
  126. ........
  127.  
Success #stdin #stdout 0s 6188KB
comments (?)
stdin
copy 
-------X..........XX..........XX..........XX.........-------
----..XX..........XX..........XX..........XX..........XX----
-..........................................................-
X..................................................XXXXXXX..
XX.................................................XX.......
XX.................................................XXXXXX...
XX......................................................XX..
XX......................................................XX..
XX.................................................XX...XX..
-...................................................XXXXX..-
----....................................................----
-------..............................................-------
stdout
copy 
07:05
https://ideone.com/4MDCaC
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
secret

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!