########### # Accepted. 2002/02/12 09:30:16 - 33 - Tim Gim Yee -l use POSIX;print~~strtol pop,36 2002/02/12 14:09:44 - 33 - Ton Hospel use POSIX;print strtol(pop,36).$/ 2002/02/12 14:15:26 - 33 - Ton Hospel -l use POSIX;print~~strtol pop,36 2002/02/12 15:29:38 - 33 - Jukka Suomela -l use POSIX;print~~strtol pop,36 2002/02/12 18:27:58 - 33 - F Xavier Noria -l use POSIX;print~~strtol pop,36 2002/02/12 18:55:20 - 33 - Tony Bowden -l use POSIX;print~~strtol pop,36 2002/02/12 21:59:17 - 33 - Andrew Savige use POSIX;print strtol(pop,36).$/ 2002/02/13 12:00:53 - 33 - Gimbo use POSIX;print strtol(pop,36).$/ 2002/02/14 09:30:37 - 33 - Tony Bowden -l use POSIX;print~~strtol pop,36 2002/02/14 10:57:45 - 33 - John W Krahn -l use POSIX;print~~strtol+pop,36 2002/02/12 10:53:18 - 34 - Philip Kendall -l use POSIX;print 0+strtol pop,36 2002/02/12 13:34:58 - 34 - Jukka Suomela -l use POSIX;print$x=strtol pop,36 2002/02/12 16:02:30 - 34 - F Xavier Noria -l use POSIX;print''.strtol pop,36 2002/02/12 21:52:24 - 34 - Andrew Savige use POSIX; print strtol(pop,36).$/ 2002/02/14 06:46:57 - 34 - John W Krahn -l use POSIX;print$_=strtol+pop,36 2002/02/12 10:53:37 - 35 - Tony Bowden use POSIX;print strtol(pop,36)."\n" 2002/02/12 10:54:51 - 35 - Tim Gim Yee use POSIX;print strtol(pop,36)."\n" 2002/02/05 05:58:17 - 36 - Daniel Pfeiffer $_=pop;$d=`echo \$((36#$_))`;print$d 2002/02/11 15:19:09 - 36 - John W Krahn -l use POSIX;print$_=strtol+shift,36 2002/02/12 09:05:06 - 36 - Tim Gim Yee -l use POSIX/r/;print~~strtol pop,36 2002/02/12 09:27:15 - 36 - F Xavier Noria -l use POSIX; print ''.strtol pop,36 2002/02/12 11:24:45 - 36 - Ton Hospel use POSIX"!";print strtol(pop,36).$/ 2002/02/12 13:20:48 - 37 - Jukka Suomela -l use POSIX;print+(strtol pop,36)[0] 2002/02/13 15:33:23 - 37 - Jochen Eisinger -l use POSIX;print+(strtol pop,36)[0] 2002/02/11 14:45:27 - 38 - Ralph Corderoy -l use POSIX;print+(strtol(pop,36))[0] 2002/02/11 18:11:37 - 38 - Tim Gim Yee -l no POSIX;print~~POSIX'strtol pop,36 2002/02/12 08:43:55 - 38 - Tim Gim Yee -l no POSIX;print~~POSIX'strtol pop,36 2002/02/13 01:24:50 - 38 - Jochen Eisinger -l use POSIX;print((strtol pop,36)[0]) 2002/02/11 19:52:18 - 39 - Ton Hospel use POSIX;print POSIX'strtol(pop,36).$/ 2002/02/11 16:06:44 - 40 - Tim Gim Yee -l use POSIX;print''.POSIX'strtol pop,36 2002/02/11 19:52:29 - 46 - Karsten aka Spifff map$.=36*$.-55+/\d/*7+ord,pop=~/./g;print$..$/ 2002/02/11 17:54:43 - 47 - Stephen Turner map{$a=$a*36+7*/\d/-55+ord}pop=~/./g;print"$a " 2002/02/11 18:52:05 - 47 - Ton Hospel $a=$a*36+(30+ord lc)%39for pop=~/./g;print$a,$/ 2002/02/11 19:14:46 - 47 - Rick Klement $d=36*$d+/\d/*7-55+ord for pop=~/./g;print$d.$/ 2002/02/12 23:27:26 - 47 - Qingning Huo -l map{$x=$x*36+/\d/*7-55+ord}pop=~/./g;print$x 2002/02/13 23:07:37 - 47 - Amir Karger 1 -l $b=$b*36-48-7*/\D/+ord for pop=~/./g;print$b 2002/02/12 10:53:18 - 48 - Philip Kendall 2 -l $_=pop;$s=36*$s-55+7*/\d/+ord for/./g;print$s 2002/02/13 02:51:14 - 48 - Mark Rogaski -l map$a=$a*36-48-/\D/*7+ord,split//,pop;print$a 2002/02/11 10:42:46 - 49 - Stephen Turner $_=pop;map{$a=$a*36+7*/\d/-55+ord}/./g;print"$a " 2002/02/11 17:13:50 - 49 - Albert Dvornik -l $x=$x*36+(-9+ord)%39for split//,lc pop;print$x 2002/02/12 18:35:40 - 49 - Mark Rogaski -l map{$a=$a*36-48-/\D/*7+ord}split//,pop;print$a 2002/02/13 15:56:57 - 49 - Alistair McGlinchy -l $x=$_-55*s/\D/ord/e+$x*36for pop=~/./g;print$x 2002/02/05 08:23:42 - 50 - Ralph Corderoy -l use POSIX;$_=pop;($_,undef)=strtol($_,36);print 2002/02/11 14:26:05 - 50 - Yanick map$@=$@*36+(/\d/?$_:-55+ord),pop=~/./g;print"$@ " 2002/02/11 16:23:20 - 50 - Rick Klement -l $d=36*$d+(/\d/?$_:-55+ord)for pop=~/./g;print$d 2002/02/11 19:27:51 - 50 - Aaron Trickey $,=$,*36+(/\d/?$&:-55+ord)for pop=~/./g;print"$, " 2002/02/12 22:38:40 - 50 - Alistair McGlinchy 2 -l $x=$x*36-(/\d/?-$_:55-ord)for pop=~/./g;print$x 2002/02/12 22:40:56 - 50 - Ala Qumsieh -l $x=$x*36+(/\d/?$_:-55+ord)for pop=~/./g;print$x 2002/02/13 10:50:20 - 50 - Steve Rushe -l ($t*=36)+=/\d/?$_:-55+ord for pop=~/./g;print$t 2002/02/13 16:25:07 - 50 - Petri Mikkela $r=$r*36+(/\D/?-55+ord:$_)for pop=~/./g;print$r.$/ 2002/02/14 13:12:54 - 50 - Yaakov Belch -l $_=pop;s;.;$r=36*$r+(ord(lc$&)-9)%39;ge;print$r 2002/02/07 09:23:57 - 51 - Amir Karger -l $_=pop;$b=$b*36+(/\d/?$_:-55+ord)for/./g;print$b 2002/02/12 09:53:19 - 51 - Philippe BooK Bruhat -l y/0-9/7-@/,$a=$a*36-55+ord for pop=~/./g;print$a 2002/02/12 19:41:01 - 51 - Patrick Gaskill -l $_=pop;$b=36*$b+(/\d/?$_:-55+ord)for/./g;print$b 2002/02/12 20:16:45 - 51 - Ala Qumsieh -l map{$x*=36;$x+=/\d/?$_:-55+ord}pop=~/./g;print$x 2002/02/12 21:37:41 - 51 - Patrick Gaskill -l $_=pop;$b=36*$b+(/\d/?$_:-55+ord)for/./g;print$b 2002/02/12 22:15:42 - 51 - Jochen Eisinger -l map$f=$f*36-(/\d/?48:55)+ord,split//,pop;print$f 2002/02/12 23:27:26 - 51 - Qingning Huo 2 -l map{$x=$x*36+/^4/*7-55+$_}unpack"C*",pop;print$x 2002/02/13 12:37:36 - 51 - Jasper McCrea -l $t=$t*36+(int||$_&&-55+ord)for pop=~/./g;print$t 2002/02/01 17:16:56 - 52 - Ben Tilly -l $_=pop;y/A-Z/:-T/;$s=36*$s-48+ord for/./g;print$s 2002/02/11 12:42:05 - 52 - Steve Rushe -l $t=$t*36+(/\d/?$_:-55+ord)for split//,pop;print$t 2002/02/12 09:39:39 - 52 - Philippe BooK Bruhat -l $_=pop;y/0-9/7-@/;$a=$a*36-55+ord for/./g;print$a 2002/02/12 18:01:24 - 52 - Mark Rogaski -l map{$a=$a*36-(/\d/?48:55)+ord}split//,pop;print$a 2002/02/13 01:05:37 - 52 - Rick Myers -l $_=pop;y/A-Z/:-S/;$a=$a*36-48+ord for/./g;print$a 2002/02/04 12:47:18 - 53 - Daniel Pfeiffer $_=pop;($d*=36)+=/\D/?ord()-55:$_ for/./g;print"$d\n" 2002/02/11 23:44:07 - 53 - Peter Malkholm map{y/A-Z/:-S/;$i=$i*36-48+ord}split//,pop;print"$i " 2002/02/12 13:52:55 - 53 - Matt Bernstein $x=$x*36-48-7*(6457?-55+ord:$_}print$a 2002/02/13 21:33:28 - 53 - Peter Haworth -l $r*=36,$r+=A gt$_?$_:ord()-55for pop=~/./g;print$r 2002/02/14 18:09:12 - 53 - Tobias Thierer $_=pop;y/0-9/7-@/;s/./$?=$?*36-55+ord$&/eg;print$?,$/ 2002/02/07 04:32:29 - 54 - Xiang Qi -l @F=split//,pop;$?=36*$?-48-/\D/*7+ord for@F;print$? 2002/02/11 23:05:19 - 54 - Dominic Battre map{$r=$r*36-(ord>57?55:48)+ord}split//,pop;print$r.$/ 2002/02/12 00:48:02 - 54 - Philippe BooK Bruhat 11 -l $_=shift;y/0-9/7-@/;$a=$a*36-55+ord for/./g;print$a 2002/02/13 02:46:40 - 54 - Arnaud Assad map{($r*=36)+=/\d/?$_:-55+ord$_}split'',pop;print$r,$/ 2002/02/05 14:11:41 - 55 - Thomas G Rokicki -l $m=$m*36+$_-48-7*($_>>6)for unpack"C*",shift;print$m 2002/02/12 00:48:02 - 55 - Philippe BooK Bruhat 6 $_=shift;y/0-9/7-@/;s/./$a=36*$a-55+ord$&/ge;print$a,$/ 2002/02/12 00:48:02 - 55 - Philippe BooK Bruhat 8 -l $_=shift;y/0-9/7-@/;s/./$a=36*$a-55+ord$&/ge;print$a 2002/02/12 04:07:15 - 55 - Rick Myers -l $_=pop;for(/./g){y/0-9A-Z/\0-#/;$a=$a*36+ord}print$a 2002/02/12 20:20:12 - 55 - Prakash Kailasa $s=$s*36+(/\d/?$_:-55+ord) for split//,pop; print $s,$/ 2002/02/13 22:39:34 - 55 - Steve Fink -l $_=pop;y/A-Z/:-S/;map$n=$n*36-48+ord,split//;print$n 2002/02/11 18:38:21 - 56 - Jean Pierre Vidal -l for(shift=~/./g){($a*=36)+=ord>57?(ord)-55:$_}print$a 2002/02/14 04:11:14 - 56 - Andrew Savige $_=pop;s;(\D)|.;$.=$.*36+($1?-55+ord$&:$&);eg;print$..$/ 2002/02/12 00:48:02 - 57 - Philippe BooK Bruhat 10 -l $_=shift;y/0-9/7-@/;$a=$a*36-55+ord$&while/./g;print$a 2002/02/12 04:22:16 - 58 - Matt Bernstein $_=pop;y;A-Z;:-S;;$x=$x*36-48+ord$&while s;^.;;;print"$x " 2002/02/14 02:12:06 - 58 - Michael Assels -l $_=pop;$x+=36**$y++*((ord chop)%55%48)while$_;print$x+0 2002/02/04 21:31:15 - 59 - Amir Karger -l $_=shift;y/0-9A-Z/\000-#/;s/./$b=$b*36+ord$&/ges;print$b 2002/02/13 09:18:51 - 59 - Honza Pazdziora -l map{$x*=36;$x+=$_-($_>64?55:48)}unpack"c*",shift;print$x 2002/02/03 00:41:13 - 60 - Hrafnkell F Hlodversson -l $_=pop;y/0-9/7-@/;s/./$c=$c*36+unpack(c,$&)-55/ge;print$c 2002/02/04 09:45:33 - 60 - Yaakov Belch $_=pop;tr;0-9A-Z;\0-0;;s;.;$r+=35*$r+ord$&;ges;print "$r\n"; 2002/02/12 17:20:56 - 60 - Mark Rogaski -l map{$a*=36;$a+=/\d/?15&ord:(31&ord)+9}split//,pop;print$a 2002/02/12 20:15:17 - 60 - Honza Pazdziora map{$x*=36;$x+=$_-($_>64?55:48)}unpack"c*",shift;print$x,' ' 2002/02/12 22:30:01 - 61 - Andrew Savige $*=$**36+index join('',0..9,A..Z),$_ for pop=~/./g;print$*.$/ 2002/02/13 03:40:06 - 61 - Andrew Savige @}{(0..9,A..Z)}=0..35;$*=$**36+$}{$_}for pop=~/./g;print$*.$/ 2002/02/13 19:38:25 - 61 - Csaba Raduly 2 -l split/ */,pop;for(@_){y!0-9A-Z!\c@-#!;$t=$t*36+ord}print$t 2002/02/11 21:42:19 - 62 - Rothenberg map{$v=$v*36+$_-(($_>57)?55:48)}(unpack"c*",shift);print"$v\n" 2002/02/12 00:48:02 - 62 - Philippe BooK Bruhat 3 @a{A..Z}=10..35;$_=shift;s/./$a=36*$a+$a{$&}||$&/eg;print$a,$/ 2002/02/12 00:48:02 - 62 - Philippe BooK Bruhat 4 @a{0..9,A..Z}=0..35;$_=shift;s/./$a=36*$a+$a{$&}/eg;print$a,$/ 2002/02/08 14:17:05 - 63 - Rick Klement -l $_=pop;y/0-9A-Z/\0-#/;1while s/(\d*)(\D)/$1*36+ord$2/e;print 2002/02/11 22:55:38 - 63 - Peter Malkholm map{$i=$i*36+index join('',0..9,A..Z),$_}split//,pop;print"$i " 2002/02/11 23:09:04 - 63 - Ala Qumsieh -l $x+=36**$l++*(/\d/?$_:-55+ord)for reverse pop=~/./g; print$x 2002/02/12 00:48:02 - 63 - Philippe BooK Bruhat 13 -l $_=shift;y/0-9/7-@/;map{$a=36*$a-55+$_}unpack'C*',$_;print$a 2002/02/12 20:41:00 - 63 - Richard J Cox for(split//,pop){$r+=ord()-(m:\d:?48:55);$r*=36}print $r/36," " 2002/02/13 21:34:31 - 63 - Christopher S Ayotte -l $-=split//,pop;map{s/\D/-55+ord/e;$%+=$_*36**--$-}@_;print$% 2002/02/15 12:35:53 - 63 - Samuel Mouniee $p=0;$p=$p*36+(/\d/?$_:-55+ord)for split//,$ARGV[0];print"$p\n" 2002/02/11 03:46:42 - 64 - Colin Meyer -l $s+=36**$z++*(/\d/?$_:-55+ord)for reverse pop=~/(.)/g;print$s 2002/02/12 00:48:02 - 64 - Philippe BooK Bruhat 2 @a{A..Z}=10..35;$a=36*$a+$a{$_}||$_ for split//,shift;print$a,$/ 2002/02/11 16:10:25 - 65 - Patrick Gaskill $_=pop;$p=y///c;$b+=(/\d/?$_:-55+ord)*36**--$p for/./g;print$b,$/ 2002/02/12 00:48:02 - 65 - Philippe BooK Bruhat 1 @a{A..Z}=10..35;$_=shift;$a=36*$a+$a{$_}||$_ for(/./g);print$a,$/ 2002/02/12 19:33:27 - 65 - Roberto Ruiz $_=pop;$i=y///c;$n+=36**--$i*(/\d/?$_:ord()-55)for/./g;print"$n " 2002/02/12 19:29:40 - 66 - Honza Pazdziora for(split//,shift){s![A-Z]!ord($&)-55!e;$x*=36;$x+=$_;}print$x,' ' 2002/02/13 19:15:51 - 66 - Csaba Raduly -l $t=0;split/ */,pop;for(@_){y!0-9A-Z!\x0-#!;$t=$t*36+ord}print$t 2002/02/05 14:28:13 - 67 - John Wells -l map{$s+=(/\d/?$_:(ord)-55)*36**$c++}reverse split//,pop;print$s; 2002/02/12 18:08:46 - 67 - Kostas Pentikousis for(split//,shift){$n+=$n*35+(ord($_)>64?ord($_)-55:$_)}print"$n\n" 2002/02/12 18:08:46 - 67 - Mark Rogaski for(split//,shift){$n+=$n*35+(ord($_)>64?ord($_)-55:$_)}print"$n\n" 2002/02/04 02:51:42 - 69 - Jon Coulter -l $t+=(/\d/?$_:ord($_)-55)*(36**$i++)for reverse split//,pop;print$t 2002/02/04 12:43:01 - 69 - Mtv Europe $_=$ARGV[0];y/0-9A-Z/\0-#/d;$\=$\*36+ord$&while/./sg;$\.="\n";print"" 2002/02/04 16:03:08 - 69 - Joaquin Ferrero $x=pop;map{$i=$i*36+$_-(($_>64)?55:48)}map{ord}split//,$x;print"$i\n" 2002/02/12 17:34:33 - 69 - Peter Barabas -l for(reverse+split//,pop){$_=ord()-55if/\D/;$q+=$_*36**$i++}print$q 2002/02/04 02:47:58 - 70 - Jon Coulter -l $t+=(/^\d/?$_:ord($_)-55)*(36**$i++)for reverse split//,pop;print$t 2002/02/04 05:13:15 - 70 - Kristoffer Lunden -l $_=pop;map{$r+=36**$i++*(/\D/?-55+ord:$_)}reverse split'';print $r; 2002/02/13 03:29:31 - 70 - Andrew Savige @][(48..57,65..90)]=0..35;$*=$**36+$][$_]for unpack'U*',pop;print$*.$/ 2002/02/01 19:03:39 - 71 - Jason Purdy map{$t+=(ord()-(/\d/?48:55))*36**$l++}reverse split//,shift;print"$t\n" 2002/02/03 21:15:14 - 71 - Sam Sargeant $_=pop;for(reverse/(.)/g){$_=ord()-55if/\D/;$x+=$_*36**$t++}print"$x\n" 2002/02/02 21:56:37 - 73 - F Xavier Noria -l $_=pop;$b=1;$n+=($d-($d<58?48:55))*$b,$b*=36 while $d=ord chop;print$n 2002/02/05 20:29:30 - 73 - Colin Meyer -l $_=pop;$s=$z=0;$s+=36**$z++*(/\d/?$_:-55+ord)for reverse/(.)/g;print$s 2002/02/13 18:21:25 - 74 - Erik Beatty map{$t+=(ord($_)-((/\d/)?48:55))*36**$i++}reverse split//,pop;print"$t\n"; 2002/02/02 03:56:37 - 75 - Stas Bekman -l @i{0..9,A..Z}=0..35,$_=reverse shift;s/./$o+=$i{$&}*36**$-[0]/eg;print$o 2002/02/12 16:13:06 - 75 - Peter Barabas -l $i=1;for(reverse+split//,pop){$_=ord()-55if/\D/;$q+=$_*$i;$i*=36}print$q 2002/02/01 18:42:36 - 76 - Jason Purdy $_=shift;$l=length;map{$t+=(ord()-(/\d/?48:55))*36**--$l}split//;print"$t\n" 2002/02/04 03:44:10 - 76 - darin -l $_=/\d/?$_:-55+ord,$r+=$_*36**$i++ for reverse split //,$ARGV[0];print $r 2002/02/05 09:10:02 - 77 - John Wells -l map{$s+=(/\d/?(ord)-48:(ord)-55)*(36**($c++))}reverse split//,pop;print$s; 2002/02/11 16:46:56 - 77 - Jeff Bisbee -l @h{0..9,A..Z}=(0..35);$s+=$h{$_}*36**$i++for reverse split'',shift;print$s 2002/02/12 13:24:02 - 77 - Peter Barabas -l $i=1;for(reverse split//,pop){$_=ord($_)-55if/\D/;$q+=$_*$i;$i*=36}print$q 2002/02/01 15:19:55 - 78 - Jason Purdy $_=shift;$l=length;map{$t+=(ord()-(/\d/?48:55))*36**--$l;}split//;print"$t\n"; 2002/02/08 20:36:16 - 78 - Albert Dvornik -l $_=pop;s/(([0-9A-Z])(?{($x*=$1x2&&36)+=(ord$2)-55+7*($2le 9)}))+/$x/g;print 2002/02/13 19:38:25 - 78 - Csaba Raduly 1 -l $_=reverse pop;y!0-9A-Z!\c@-#!;s/[\c@-#]/9x(36**$.++*ord$&)/ge;print length 2002/02/01 13:31:37 - 79 - Les Peters $o+=index(join('',0..9,A..Z),$_)*36**$b++for reverse split//,shift;print"$o\n"; 2002/02/01 18:06:13 - 80 - Jarkko Hietaniemi -l ($_=reverse shift)=~y/0-9A-Z/\0-\043/;($a*=36)+=ord chop while length;print$a 2002/02/05 18:33:55 - 81 - Kostas Pentikousis -l foreach(0..9,A..Z){$d{$_}=$i++}foreach(split//,shift){$n=$n*36+$d{$_}}print $n 2002/02/07 13:59:27 - 81 - Erik Cunningham -l $i=pop;map{$o+=$_*36**$c++}(map{/\D/?ord()-55:$_}(reverse split//,$i));print$o 2002/02/12 13:17:22 - 81 - Peter Barabas -l $i=1;for(reverse split//,pop){if(/\D/){$_=ord($_)-55}$q+=$_*$i;$i*=36}print$q; 2002/02/01 15:04:41 - 82 - Jason Purdy $_=shift;$l=length()-1;map{$t+=(ord()-(/\d/?48:55))*36**$l--;}split//;print"$t\n"; 2002/02/13 16:27:41 - 84 - Kurt Telep $y=(@C=split//,pop)-1;foreach(@C){$z+=36**$y--*($_!~/\d/?(ord$_)-55:$_)} print"$z "; 2002/02/12 08:53:29 - 87 - Kurt Telep $y=(@C=split//,pop)-1;foreach(@C){$z+=36**$y--*(($_!~/\d/)?(ord$_)-55:$_);} print"$z "; 2002/02/03 11:59:06 - 90 - Jay Lawrence -l $n=pop;foreach(reverse(split//,$n)){$x=ord$_;$v+=($x>64?$x-55:$x-48)*36**$p++;};print$v 2002/02/05 20:03:24 - 91 - Dave Tallman $_=pop;print eval {map {$f=$f*36+$_} unpack "C*",(y/0-9A-Z\n/\0-\cJ\cK-\043/d,$_);$f},"\n"; 2002/02/01 17:56:09 - 96 - Mansoor Sirinathsingh -l @x=split//,$ARGV[0];for(0..$#x){$m=ord($x[$_]);$b+=($m-($m<58?48:55))*36**($#x-$_)}print $b; 2002/02/04 06:24:19 - 112 - James Richardson for (@ARGV){$n=1;$a=0;for(reverse(split(/ */))){$a+=((/[A-Z]/?(ord()-ord('A'))+10:$_)*$n);$n*=36;}print "$a\n";} 2002/02/05 11:34:02 - 112 - Jason Rush -l $S=0;$N=pop;chomp $N;$c=0; for(reverse(split(//,$N))){$n=/[A-Z]/?ord($_)-55:$_;$S+=$n*36**$c;$c++;} print $S; 2002/02/11 15:28:13 - 122 - Jason Kost $_=pop;$_=reverse;@a=split//;@h{0..9,'A'..'Z'}=(0..35);$_=0;for($i=0;$i<=$#a;$i++){$_+=($h{$a[$i]}*(36**$i))};print"$_\n"; 2002/02/05 19:51:03 - 127 - Brett DiFrischia -w $w=$ARGV[0];$t=0; for(reverse(0..length($w)-1)){ ($c,$w)=unpack('ca*',$w); $t+=($c%65+10)%58*36**$_; } print "$t\n"; 2002/02/04 21:16:25 - 128 - Eric Brown -l @_=map{if($_>57){$_-7}else{$_}}map(ord,split(//,reverse(uc($ARGV[0])))); print eval join('',map("$_-48+36*(",@_),map{")"}@_); 2002/02/04 20:03:10 - 147 - Ted Logan -l foreach (map {ord} reverse split //, shift) { $n += (36 ** $b++) * ($_ > 64 ? $_ - 55 : $_ - 48); } print $n; 2002/02/04 03:12:19 - 153 - Dave Noble die "Usage: $0 [0-9A-Z]+\n" unless @ARGV == 1 && $ARGV[0] =~ m/^[0-9A-Z]+$/; grep($n+=(m/\d/?$_:ord()-55)*36**$d++,reverse(split('',shift)));print"$n\n"; 2002/02/04 10:39:30 - 161 - Kurt Telep -l use strict;my$x="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; my$y=length($ARGV[0]);my$z=0;foreach(split(//,$ARGV[0]) ){$z+=(36**($y-1))*index($x,$_);$y--}print $z; 2002/02/13 22:39:34 - 189 - Andrew Savige #include #include #define strtol(a,b) strtol(a,0,b) #define $ /* use POSIX;$argv[1]=pop;"*/ main(int argc,char *argv[]) //"; { printf("%ld\n",strtol($ argv[1],36)); } 2002/02/12 22:57:04 - 256 - Andrew Savige #include #include #define strtol(a,b) strtol(a,0,b) #define $ARGV argv #define x : /* use POSIX; unshift @ARGV, 'Buffy'; "*/ main(int argc, char *argv[]) // "; { printf("%lu\n", strtol($ARGV[1], 36)); } 2002/02/01 16:14:36 - 364 - Charles Reace use strict; if($ARGV[0]) { my $ix; my $char; my $base10 = 0; for($ix = length($ARGV[0]); $ix >= 0; $ix--) { $char = ord(substr($ARGV[0], -$ix, 1)); if($char > 57){$char -= 55} else{$char -= 48} $base10 += int(($char * (36 ** ($ix - 1)))); } print "$base10\n"; } else { die "USAGE: base36.pl base36_number\n"; } 2002/02/12 05:46:28 - 7918 - Andrew Savige ''=~("\(". '?'."\{".( '`'|'%').( "\["^ '-' ). +( '`' |+ '!' ). ((( (( '`'))))|',').'"'.'\\'.'$'.('['^'"').'='.('['^'+') .('`'|'/').('['^'+').';'.'\\'.'$'.('['^')')."\+". '='.'('.('`'|'/').('['^')').('`'|'$').'\\'."\$".( '['^'#').'>'.('^'^('`'|'(')).('^'^('`'|'.')).'?'. '-' .( '^' ^( (( (( (( '`' ))))) )|"\+")).( '^'^("\`"| '+' )) .(( (( '+')))).('`'|'/').('['^')').('`'|'$').'\\'."\$".( '['^'#').':'.'\\'.'$'.('['^'#').')'.'*'.('^'^('`' |'-')).('^'^('`'|'(')).'*'.'*'.'\\'.'$'.('`'|'&') .'+'.'+'.('['^',').('`'|'(').('`'|')').('`'|','). ((( (( (( '`') )))) )|(( '%' ))).+ '('.'('.'\\'.'$'.('['^('#')). '='.('`'|'#').('`'|'(').('`'| '/').('['^'+').'\\'.('$').( '['^'"').')'.('`'|"\.").( '`' |'%').''. '\\'."\"".'\\'. '"'.')'.';'.(('[')^ '+').('['^')').('`'|')' ).('`'| (( '.'))) .''. +( '['^ '/' ). ((( ((( (( (( ((( (( (( ((( (( (( (( (( ((( (( (( '\\' )) )) )))))) ))) )))))))))))) )) )))))))).+ '$'.('[' ^(( (( ')' )) ))) .+ '.'.'\\'.'$'.'/'.('!'^'+').'"'.'}'.')');$:=('.')^ '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^"\}"; $,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|('(');$^= ')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\="\)"^ '}' ;( $: )=( (( (( '.' )) )) )^ (( (( (( (( (( '~' ))) ))) )))) ;$~= '@' |'('; ($^)= ')'^'[' ;$/='`' |'.';$_='('^'}';$, ='`'|'!';$\=')'^ '}';$:=('.')^ "\~";$~= '@'|"\("; $^=')'^"\[";$/= '`'|'.';$_='('^'}'; $,='`'|'!';$\=')'^"\}"; $:='.'^ (( '~')); ($~) =( '@') |(( (( '(' ))) ); $^ =(( (( (( ')' )) )) )) ^+ '[' ;( $/ )=(( (( (( '`'))) ))) |'.';$_='('^ (( "\}"));$,= '`'|'!'; $\= (( ')' )) ^'}';$:='.'^'~';$~='@'|'(';$^ =')'^'[';$/='`'|'.';$_=('(')^ '}';$,='`'|'!';$\=')'^'}';$:= '.'^'~';$~='@'|'(';$^=')'^'[' ;$/ =(( '`' ))| '.'; ($_)= '('^"\}"; $,='`'|'!' ;$\=(')')^ ('}');$:= '.'^ '~' ;( $~) =( '@')|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'| '!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^"\["; $/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^('}');$:= '.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_="\("^ '}' ;$, =( '`' )| '!' ;( $\)=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^"\[";$/= '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:="\."^ '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^"\}"; $,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|('(');$^= ')' ^'[' ;( $/) =('`')| (( '.' ));$_='(' ^+ '}';$,="\`"| (( '!'));$\=(')')^ (( '}'));$:='.'^"\~"; $~ =(( '@'))|'(';$^=')' ^(( '[' )); $/='`'|('.');$_= '(' ^'}' ;$,='`'|'!';$\=')' ^'}' ;$: ='.'^'~';$~='@' |'('; ($^)= ')'^"\[";$/= '`'|'.' ;$_='(' ^('}');$,= '`'|'!';$\=')'^'}' ;$:='.' ^'~';$~='@'|'('; ($^)= ')'^('[');$/= '`' |'.';$_= '(' ^"\}";$,= '`'|'!';$\=')'^ '}';$:='.'^"\~";$~= '@'|'(';$^=')'^"\[";$/= '`'|'.' ;( ($_))= '('^ (( '}') );( $, )=( '`' )| (( '!' )) ;( $\) =( (( (( (( ')' )) )) )))^ (( (( '}'))) );( $:)='.'^'~'; $~ ='@'|"\("; $^="\)"^ (( (( '[')) ));$/='`'| '.';$_=('(')^ '}';$,='`'|'!';$\ =')'^'}';$:="\."^ (( '~'));$~='@'|'('; $^=')'^'[';$/='`' |'.';$_="\("^ '}';$, ="\`"| '!';$\= ')'^'}' ;( $:)='.' ^(( (( '~' )) )); $~ =(( '@'))|'(';$^=')'^'[';$/="\`"| '.';$_ ='('^'}';$,='`'|'!';$\=(')')^ "\}";$:= '.'^'~';$~='@'|'(';$^=')'^'[' ;($/)= '`'|'.';$_='('^'}';$,='`'|'!' ;$\ =(( ')'))^'}' ;$:='.'^'~';$~= '@'|'(';$^=')'^'['; $/='`'|'.';$_='('^"\}"; $,='`'| (( '!')); ($\) =( ')') ^(( (( '}' ))) ); $: =(( (( (( '.' )) )) )) ^+ '~' ;( $~ )=(( (( (( '@'))) ))) |'(';$^=')'^ (( "\["));$/= '`'|'.'; $_ =( '(')^ '}';$,='`' |'!';$\="\)"^ '}';$:='.'^'~';$~ ='@'|'(';$^="\)"^ (( '['));$/='`'|'.'; $_='('^'}';$,='`' |'!';$\="\)"^ '}';$: =('.')^ '~';$~='@'|'('; $^=')'^'[';$/='`' |'.';$_="\("^ '}';$, ="\`"| '!';$\= ')'^'}' ;( $:)="\."^ "\~"; #; #; ########### # Rejected 2002/02/14 00:51:47 - 19 - F Xavier Noria $0=~s,.*u,u,;eval$0 2002/02/10 11:01:13 - 42 - Yanick map$@=36*$@+(/\d/g||-87+ord),pop=~/./g;die 2002/02/13 23:07:37 - 45 - Amir Karger 2 print-48-7*/\D$/+ord(chop)+36*`$0 $_`if$_=pop 2002/02/12 18:37:33 - 47 - Gimbo -l $z=$z*36+(int||-55+ord)for pop=~/./g;print$z 2002/02/12 19:34:26 - 47 - Jasper McCrea -l $t=(hex||-55+ord)+$t*36for pop=~/./g;print$t 2002/02/12 22:38:40 - 47 - Alistair McGlinchy -l $x=$x*36-(0-$_||55-ord)for pop=~/./g;print$x 2002/02/12 15:37:02 - 48 - Gimbo -l $z=$z*36+(0+$_||-55+ord)for pop=~/./g;print$z 2002/02/12 08:50:59 - 49 - Yaakov Belch -l $_=pop;s;.;$r=36*$r-(9-ord lc$&)%39;ge;print$r 2002/02/12 20:23:08 - 49 - Ala Qumsieh -l $x*=36,$x+=0+$_||-55+ord for pop=~/./g;print$x 2002/02/08 18:46:11 - 50 - Yanick -l map$@=36*$@+(/\d/?$_:-87+ord),pop=~/./g;print$@ 2002/02/12 11:37:43 - 50 - Steve Rush -l $t=$t*36+(/\d/||-55+ord)for split//,pop;print$t 2002/02/12 04:26:58 - 53 - Rick Myers -l $_=pop;y/0-9A-Z/\0-#/;$a=$a*36+ord for/./g;print$a 2002/02/12 00:48:02 - 54 - Philippe BooK Bruhat 12 -l $_=shift;y/0-9A-Z/ -#/;$a=$a*36+ord for/./g;print$a 2002/02/12 00:48:02 - 55 - Philippe BooK Bruhat 7 $_=$ARGV;y/0-9/7-@/;s/./$a=36*$a-55+ord$&/ge;print$a,$/ 2002/02/12 10:31:55 - 55 - Philippe BooK Bruhat -l $a=$a*36-($"==$"&$_?48:55)+ord for pop=~/./g;print$a 2002/02/12 00:48:02 - 56 - Philippe BooK Bruhat 5 $_=shift;y/0-9A-Z/\0-#/;s/./$a=36*$a+ord$&/ge;print$a,$/ 2002/02/12 22:16:57 - 56 - Tobias Thierer $x=pop;$_=chop$x;y/0-9/7-@/;print$_&&36*`a $x`-55+ord,$/ 2002/02/12 22:15:38 - 57 - Tobias Thierer $x=pop;$_=chop$x;y/0-9/7-@/;print$_?36*`a $x`-55+ord:0,$/ 2002/02/12 00:48:02 - 58 - Philippe BooK Bruhat 9 -l $_=shift;y/0-9A-Z/\0-#/;$a=$a*36+ord$&while/./g;print$a 2002/02/12 17:30:15 - 59 - Jeff japhy pinyan -l $_=pop;y!0-9A-Z!\0-#!;$s+=36**$i++*ord for/./gs;print$s 2002/02/12 21:32:33 - 59 - Tobias Thierer $x=pop;$_=chop$x;y/0-9/7-@/;print$_?36*`a $x`-55+ord:0,$/ 2002/02/06 22:51:32 - 60 - Ming Wang -l @F=split//,pop;for(@F){$a=$a*36+(/\d/?$_:-87+ord)}print$a 2002/02/03 17:28:03 - 61 - Arnaud Assad @F=split//,pop;print+(map{($r*=36)+=/\d/?$_:-55+ord$_}@F)[-2] 2002/02/12 18:54:30 - 61 - David H Adler s/\D/-55+ord/e,$s+=$_*36**$i++while$_=chop$ARGV[0];print$s,$/ 2002/02/04 17:49:40 - 63 - David Corbin -l for(split//,shift){$t+=$t*36+((/\d/)?$_:ord($_)-56);}print$t 2002/02/12 09:50:04 - 63 - Scott Wessels $a=pop;$x+=(/\d/?$_:ord()-55)*36**$s++while$_=chop$a;print"$x " 2002/02/12 21:21:38 - 63 - Tobias Thierer $x=pop;$_=chop$x;y/0-9/7-@/;print/^$/?0:(36*`a $x`-55+ord),$/ 2002/02/01 18:47:36 - 70 - Jarkko Hietaniemi -l $_=shift;y/0-9A-Z/\0-#/;(s/.//,($a*=36)+=ord$&)while length;print$a 2002/02/01 18:41:19 - 73 - Jarkko Hietaniemi -l ($_=shift)=~y/0-9A-Z/\0-#/;(s/.//,($a*=36)+=ord$&)while length;print$a 2002/02/04 05:40:55 - 77 - Max Fedchenko $_=pop;chop;tr[0-9A-Z][\0-\#];my$s;map{$s=$s*36+$_}unpack"C*",$_;print"$s\n"; 2002/02/04 16:11:08 - 78 - Daniel Allen -l $_=pop;print eval join"+",map(36**$n++*(/\d/?$_:ord$_-55),reverse split//); 2002/02/13 17:13:29 - 78 - Csaba Raduly 3 -l $x=reverse pop;$t=0;while($_=chop$x){y!0-9A-Z!\x0-#!;$t=$t*36+ord}print $t; 2002/02/13 23:14:07 - 80 - Jean Pierre Vidal -l pop=~/./;(($_=pop)*=36)+=ord$&>57?-55+ord$&:$&;(length$'&&exec$0,$_,$')|print 2002/02/13 17:13:29 - 81 - Csaba Raduly 2 -l $x=reverse pop;$t=0;while($_=chop$x){y!0-9A-Z!\x0-\x35!;$t=$t*36+ord}print $t; 2002/02/05 18:50:33 - 82 - John Trammell -l $y++,y/0-9A-Z/\0-\043/,map$x+=$_/36*($y*=36),unpack"C*",reverse pop;$_=$x;print 2002/02/05 05:49:47 - 84 - Alain Trembleau $_=reverse@ARGV[0];while($_){$b=ord(chop)-48;$a=36*$a+$b-(int($b/10)&&7)}print"$a\n" 2002/02/04 14:16:26 - 85 - Clive Holloway $_=pop;chop;for(reverse split''){$"=ord()-48;$:+=($">9?$"-7:$")*36**$/++};print"$:\n" 2002/02/13 17:13:29 - 85 - Csaba Raduly 1 -l $x=reverse pop;$t=0;while($_=chop$x){if(/[A-Z]/){$_=-55+ord}$t =$t*36+$_}print $t; 2002/02/06 08:50:49 - 88 - Zaphod Beeblebrox -l @h{0..9a..z}=(0..35);for(reverse split //,$ARGV[0]){$b+=$= h{$_}*(36**$i++)}print $b; 2002/02/04 05:07:46 - 100 - Max Fedchenko $_=pop;chop;tr[0-9A-Z][\000-#];my$s;map{$s=~s/\+/\+36\*/g;$s.="+$_"}unpack"C*",$_;print eval$s,"\n"; 2002/02/04 14:36:16 - 100 - John Wells -l print map{/([A-Z])*(\d)*/;print$s+=((($1)?ord($1)-55:ord($2)-48)*(36**$c++)),"\n";}split//,shift; 2002/02/08 11:01:10 - 123 - Jason Kost -l $_=pop;chop;$_=reverse;@a=split//;@h{0..9,'A'..'Z'}=(0..35);$_=0;for($i=0;$i<=$#a;$i++){$_+=($h{$a[$i]}*(36**$i))};print 2002/02/07 16:16:13 - 163 - Phil Jach $_=pop;chomp;split(//);$x=0;foreach(reverse @_){if(/[0-9a-zA-Z]/){if(!/ [0-9]/){$_=ord((lc))-87;}$t=$t+($_*36**$x);$x++;}else{print"!Base36 \n";exit;}}print"$t\n";