Попросили придумать поздравление от reg.ru с днём программиста...

Sep 09, 2011 19:49



#!/usr/bin/perl
undef$/;$s=<DATA>;
foreach (split//,$s) {$b.=$_ eq'D'||0if/[OD]/;print pack("b8",$b)and$b=''if length$b>=8;}
__DATA__
RROORR
ORRDORRRRODRRRR
ODRRRRROOOORDRDRRROOROROR
....... RRRODDDRRORRRROOORRRRRODDDORRDROO
............... RRDDRDDROROOOOODROROORRRRROOODRRRRRRDDR
.................... RORRORDRORRRODDDRORDRRRRDDRRRRDORRRRRDDODDD
........................RRROORDDORRORDRORODRRRRDRRDRODORORROODDRRO
.....................RDODDODDORRDODDRRRRRRRRORRRDDORDRORDORRORDRRR
...................RRRDRORRODRRROODRRRRRDDORRRRRRDDRRRRRRROODRDRDO
.................ROOORORODRROROORRRORRDRROORRRDRRRDRRRRORDRRORRROO
................ODRRRRRDRORRDRRROODDDDORODRDDRRRRRODORRRRORRRROOORO
..............RRRODRRRRRROOORDRRRROOOODRRRRODODRROORDRRDRORRDDORRRR
............ORRDDRRRRRDROROORDODRRDDOOOROORORDRORROORDORRRRRRORDDRD
..........RODORDRRORRODDRORRRDRDDORRRRODDODOORROORRDDOORRRRRDRRRORR
.........ODRDRRDROORRRRRORRDOORRRRDRDORRDDOODDDOOORORORRRRRODORROOR
.............RDRDRORRRORDRDRORRRODRROORDRRRDRDRRODDDRRDORRRDDORDOR
.............DDORRDRDOORROROOODROORRRRODRRRORORDRRODRODORDRRRORORR
.............RRRODORDRRRRRRDRDROORRRRORDRRROORDRDRDRRODRORRRRORODO
...........RRORDRRORRRDRRORDODORRDRODRROODDDRRODROORROOOOORRDRRRR
...........RRORRORDDOORDRORDRRRRRRROOORRRORRODDDRRRRRR RORDROR
...........DOODRRRRRDORDDOOORDRDODRRORRRRODRRORD RRDROR
...........RRRRRDRORRRORRROODDROORORDRDRORRDRDO OORROR
..........OODROORRDRRDRRRDRRORORRDDRORRODOODDDO DRRORD
..........ORRODRRRRRDORRRDRORDRORODDOORRRORDRR ODRRDR
..........RDORRRDORORRDODDRRORRRRRODRRRDDRRRRR RODDRO
..........DDRDORRRRORDRDRORROROOORORDRRORRRRRR ORRROR
........DRRRRDROORRDRRDODDRDRRRRRRDORRRDRDOOR RDRORR
........RRORDDRDOORORROORRODRROROROOORDRORRD DRRRRR
........RORDOOROODDRORRRRODRRRRORRRROODDORRO RDORRR
........ORRRRDDDRRORRRRDRROOORRODRRDRROROOOR RRRRDO
........DRRRDRRRODRRRRORROORRRRRRORDDRROODOR OORRRR
.......RRRRDDRROORRRDRRORRODRRDRRRRDRORORRO RRRRRR
.......RRROORRRORRDORORDRODODRDRDRRRORDRRRR
.......DRORRORDRRDRDRORRRDODRRRRRRORRODDOOR
......RRDRORRRRODDRRDORDDROORDDRRDRRROODRR
......RRRORRDOORORRRORRRRRRRRRRRRRRRR
.....RRRRRRRRRRRRRRRRRRRRRRRRRR
.....RRRRRRRRRRRRRRRRRRRR
.....RRRRRRRRRRRRRR
...RRRRRRRRR
..RRRR

UPD:
Идея стащена отсюда: http://www.cpan.org/misc/japh
png2ascii: http://www.glassgiant.com/ascii/

программирование, perl

Previous post Next post
Up