/dev/tty

Notes on Web Development, Computer Programming, and Software Engineering

• Open Source Projects

2 Comments on “Ruby Quiz, Haskell Solution: LCD Numbers”

1. 
   1 Eduard said at 20:53 on December 17th, 2009:

   And for a short, if not as sweet perl version:

   #!/usr/bin/env perl
   use strict;
   use warnings;
   
   my ( undef, $scale, $input ) =  @ARGV == 3 ? @ARGV : ( '', '2', @ARGV );
   
   my @digits; push( @digits, $1) while $input =~ m/(\d)/g;
   
   my $empty   = '   ';
   my $line    = ' - ';
   my $sides   = '| |';
   my $right   = '  |';
   my $left    = '|  ';
   
   my @d;
   $d[0] = [$line,   $sides, $empty, $sides, $line   ];
   $d[1] = [$empty,  $right, $empty, $right, $empty  ];
   $d[2] = [$line,   $right, $line,  $left,  $line   ];
   $d[3] = [$line,   $right, $line,  $right, $line   ];
   $d[4] = [$empty,  $sides, $line,  $right, $empty  ];
   $d[5] = [$line,   $left,  $line,  $right, $line   ];
   $d[6] = [$line,   $left,  $line,  $sides, $line   ];
   $d[7] = [$line,   $right, $empty, $right, $empty  ];
   $d[8] = [$line,   $sides, $line,  $sides, $line   ];
   $d[9] = [$line,   $sides, $line,  $right, $line   ];
   
   for my $line (0..4) {
       for (1..($line % 2 == 1  ? $scale : 1))  {
           for my $digit ( @digits ) {
               $d[$digit][$line] =~ m/^(.)(.)(.)$/;
               print  $1 . ( $2 x $scale) . $3 . ' ';
           }
           print "\n";
       }
   }
   

2. 
   2 Eduard Lohmann said at 12:02 on December 18th, 2009:

   Namens marius in bash en awk :)

   #!/bin/bash 
   
   DIGITS=""
   SCALE="2" 
   
   function parse_args {
       while getopts  "s:" flag
       do
           SCALE="$OPTARG"
       done
       shift $(($OPTIND-1))
       DIGITS="$1"
   } 
   
   SPRITE_LINE0=".-.....-..-.....-..-..-..-..-."
   SPRITE_LINE1="|.|..|..|..||.||..|....||.||.|"
   SPRITE_LINE2=".......-..-..-..-..-.....-..-."
   SPRITE_LINE3="|.|..||....|..|..||.|..||.|..|"
   SPRITE_LINE4=".-.....-..-.....-..-.....-..-." 
   
   NEWLINE_SUBSITUTE="L"
   READ_DELIM="X" 
   
   function digit_to_sprite {
       local DIGIT="$*"
       local SPRITE_TEMPLATE_OFFSET=$(($DIGIT*3))
       for SPRITE_LINE_NR in $(seq 0 4); do
           local VAR_SELECTOR="SPRITE_LINE$SPRITE_LINE_NR"
           echo -n ${!VAR_SELECTOR:$SPRITE_TEMPLATE_OFFSET:3}$NEWLINE_SUBSITUTE
       done
       echo
   } 
   
   function digits_to_sprites {
       local DIGITS="$*"
       DIGITS="$(echo $DIGITS | sed 's/\(.\)/\1 /g')" 
   
       for DIGIT in $DIGITS ; do
           digit_to_sprite $DIGIT
       done
   } 
   
   function calculate_scale {
       local SPRITES=$1
       local FIRST_SPRITE=$(echo $SPRITES | head -1) 
   
       local TOTAL_LINES=$(echo -n $FIRST_SPRITE | tr $NEWLINE_SUBSITUTE
   \\n | wc -l)
       echo $((($TOTAL_LINES-3)/2))
   } 
   
   function render_sprites {
       local SPRITES=""
       read  -d $READ_DELIM SPRITES
       local SPRITE_SCALE=$(calculate_scale $SPRITES) 
   
       for LINE_NR in $(seq 1 $((($SPRITE_SCALE * 2) + 3))); do
           local TOTAL_LINE=""
           for SPRITE in $SPRITES; do
               local PIECE=$(echo -n $SPRITE | cut -d $NEWLINE_SUBSITUTE
   -f $LINE_NR)
               TOTAL_LINE="$TOTAL_LINE$PIECE "
           done
           echo $TOTAL_LINE | tr '.' ' '
       done
   } 
   
   function scale_sprites {
       local SCALE=$1
       local SPRITES=""
       read -d $READ_DELIM SPRITES
       local VSCALE_AWK="
   /([|][.][.])|([.][.][|])|([|][.][|])/ {
     for (i = 1; i < scale; i++)
       print \$0
   }
   BEGIN {
     RS=\"$NEWLINE_SUBSITUTE\"
     ORS=\"$NEWLINE_SUBSITUTE\"
   }
   {
     print \$0
   }
   "
       local HSCALE_AWK="
   BEGIN {
     RS=\"$NEWLINE_SUBSITUTE\"
     ORS=\"$NEWLINE_SUBSITUTE\"
     FS=\"\"
     OFS=\"\"
   }
   {
     line = \$1
     for (i = 1; i <= scale; i++)
       line = line \$2
     line = line \$3
     print line
   }
   "
       AWK_VARIABLES="scale=$SCALE"
       for SPRITE in $SPRITES; do
           echo -n "$SPRITE" \
               | awk "$VSCALE_AWK" $AWK_VARIABLES \
               | awk "$HSCALE_AWK" $AWK_VARIABLES
           echo
       done
   } 
   
   parse_args $*
   digits_to_sprites $DIGITS | scale_sprites $SCALE | render_sprites
   

Leave a Reply