Select Code to Download

# 17:                 $minimumAmount = $1 / $2;
14             <;> nextstate(main 941 pmonks.pl:17) v:*,&,$
...
1d             <#> gvsv[*2] s
1e             <0> padsv[$weight:940,947] sRM*
1f             <2> sassign vKS/2

20     <0> pushmark s
21     <0> padsv[$div:961,963] l
...
26     <0> padsv[$gamount:961,963] lRM*
27     <0> padsv[$gweight:961,963] lRM*
28     <2> aassign[t27] vKS

# 69:     my $input = ${$_[0]};
1  <;> nextstate(main 970 pmonks.pl:69) v:*,&,$
...
3  <1> rv2sv sK/3
4  <0> padsv[$input:970,973] sRM*/LVINTRO
5  <2> sassign vKS/2

# 59:     my $input = ${(shift)};
1  <;> nextstate(main 965 pmonks.pl:59) v:*,&,$
...
5  <1> rv2sv sK/3
6  <0> padsv[$input:965,968] sRM*/LVINTRO
7  <2> sassign vKS/2

C:\Documents and Settings\Owner\Desktop>perl pmonks.pl
badarivu2 0.921875
...
arivu 13.078125

C:\Documents and Settings\Owner\Desktop>

#!/usr/bin/perl

...
#print arivu \$input;
#print choroba \$input;
#print choroba2 \$input;