gpa.pl


Don't ask to ask, just ask
	PerlMonks

gpa.pl

by rescdsk (Novice)

on Aug 19, 2000 at 06:45 UTC ( [id://28622]=obfuscated: print w/replies, xml )

Need Help??

%g=("a"=>4,       "b"=>3,
  "c"=> 2,        "d"=>1,
    "f"=>0,       "+"=>
     1/3 ,        "-"=>
     -1/3);       while
     (<>){        chomp;
    next          unless
   m/^([abcdf])([+-])?$/;
                  $n+=1;
                  $t+=
                  $g{$1};
                m/(a\+|f-)/
               or $t+=$g{$2};}
              print($t/$n,"\n");
[download]

(takes input in the form of one grade, lower case, per line.)
-resc

Comment on gpa.pl Download Code

Replies are listed 'Best First'.

RE: gpa.pl
by ColonelPanic (Friar) on Aug 23, 2000 at 23:02 UTC

chomp($_=<>);$a=$_;s/([^a-f+-]|e)//ig;s/f//ig;s/a/spit(2);/ig;
s/b/print;/ig;s/c/eof;/ig;s/d/}d/ig;s/.\-//ig;$b=$_;$_=$a;
s/[^abcdf]//ig;$_=length;$b=length$b;$_=$b/(2*$_);print;
[download]

Update:

[reply]
[d/l]

Back to Obfuscated Code