Top Challenge Entrants
1
jaytea
587 2
[Znork]
303 3
urza
297 4
Ag2X
288 5
dr_Eamer
255 6
Albie
199 7
Chessnut
197 8
A Noniem
194 9
zzattack
186 10
Kol
185 11
m910q
168 12
Sephiroth
115 13
Auron956
114 14
patje
114 15
chid
110 16
Ohad2121
92 17
SkorpSSS
87 18
DixrouE
84 19
Suchorski
83 20
^Vampire^
74
Challenge: Smallest $rps - Rock, Paper, Scissors
Start: July 17th 2009
End: July 23rd 2009
Results:
The challenge was a phenomenal success. In fact, we have set a record number of entries not only for the ones I've set on mircscripts.org, but ever!
There was a total of
45 entries, 18 valid and
27 invalid!
Winner! jaytea (76 bytes!)
alias rps return $calc($iif(? ? iswm $1-,$pos(rrsrsspspprp,$1 $+ $2-))% 4-1)
Runner-up!
Kol (78 bytes!)
alias rps return $calc($iif(? ? iswm $1-,$pos($mid(rsprs,$pos(rsp,$1)),$2))-1)
Most creative!*
visionz (78 bytes!)
alias rps return $ceil($calc($pos(<ÀFG@½¿AD,$chr($base($1c $+ $2-,9,8)))/3-1))
* although not validating input, I awarded this for the shear thought and work gone into this entry
Thank you all for taking part! I hope to see you all in the next challenge which will be set in the upcoming days.
Winner: jaytea 76 bytes!
Top Entries
Invalid Entries
Chessnut 77 bytes * Failed on test: $rps(r,,) returned 0 should of returned -1 visionz 78 bytes * Failed on test: $rps(rspr,rp) returned 1 should of returned -1 OokMP3 94 bytes * Failed on test: $rps(R R) returned 0 should of returned -1 therealkerst 96 bytes * Failed on test: $rps(,rs) returned 1 should of returned -1 m910q 96 bytes * Failed on test: $rps(R R) returned 0 should of returned -1 Nighthawk 100 bytes * Failed on test: $rps(+,1) returned +1 should of returned -1 chid 109 bytes * Failed on test: $rps(r,,) returned 2 should of returned -1 Imk0tter 114 bytes * Failed on test: $rps($chr(44) $+ s,p) * /goto: ',sp' not found (line 3) should of returned -1 spyro 115 bytes * Failed on test: $rps(,rs) returned 1 should of returned -1 ancientlord6 139 bytes * Failed on test: $rps(p,rps) returned 2 should of returned -1 Natdhib 142 bytes * Failed on test: $rps(r,r) returned 2 should of returned 0 entropy 146 bytes * Failed on test: $rps(R R) returned 0 should of returned -1 URJD 147 bytes * Failed on test: $rps(p,rps) returned 12 should of returned -1 unrealnet 167 bytes * Failed on test: $rps(r,p,) returned 2 should of returned -1 Jos-hR 175 bytes * Failed on test: $rps(p,pp) returned 2 should of returned -1 Jigsy 177 bytes * Failed on test: $rps(rs,p) returned 2 should of returned -1 Andy 180 bytes * Failed on test: $rps(r p s,r p s) returned 0 should of returned -1 v_lz 182 bytes * Failed on test: $rps(Z,Z) returned 0 should of returned -1 asdx 211 bytes * Failed on test: $rps(p,rps) returned 1 should of returned -1 Firstmate 221 bytes * Failed on test: $rps(r,p,) returned 2 should of returned -1 Nen 229 bytes *Failed on test: $rps(r,p) returned p should of returned 2 Shinigami 244 bytes * Failed on test: $rps(p,s,,rppr) returned 2 should of returned -1 vithor 245 bytes * Failed on test: $rps(r,$chr(44)) returned 2 should of returned -1 DM-MaSTeR 251 bytes * Failed on test: $rps(P,P) returned 1 should of returned 0 mcm2 349 bytes * Failed on test: $rps(r,p) returned 1 should of returned 2 He3F 402 bytes * Failed on test: $rps(r,p,0) returned 2 should of returned -1
Description:
In this challenge you are asked to create an alias that will return the winner of the game Rock, Paper, Scissors.
Two parameters will be passed to the alias;
r = Rock
p = Paper
s = Scissors
The alias must return the winner of the game;
-1 if $1- is invalid input i.e. not r/p/s
0 if its a draw
1 if $1 wins
2 if $2 wins
Your alias must be case in-sensitive. You must assume any values of any length can be passed as either $1 or $2. In any event of an invalid input (i.e. anything other than purely r/p/s, your alias should return -1).
You should return -1 if $3- is supplied i.e. $rps(r,p,r) should return -1
Example:
$rps(r,p) = 2
$rps(p,r) = 1
$rps(s,s) = 0
$rps(s,p) = 1
$rps(s,r) = 2
$rps(R,s) = 1
$rps(rr,s) = -1
$rps(1,s) = -1
$rps(;,) = -1
$rps(r,pp) = -1
$rps(p1,s2) = -1
$rps(ppr,s) = -1
$rps(r,r,p) = -1
$rps(r,p,0) = -1
$rps(r,s,$false) = -1
Rules:
Alias name must be 'rps' No dlls, coms, sockets or regular expressionsOne submission per user. Script must give correct results after consecutive runs.
Testing conditions:
Alias will be run on mIRC v6.35 and loaded into the remotes section . Your code will be taken for EXACTLY as-is. Alias will be run on a mIRC with no variables set - a clean mIRC.
Countcode:
(coded by garreh)