#209229 - 2014-07-07 08:18 AM
Re: Kixgolf - Win, Win, or Draw - Public Round
[Re: Jochen]
|
Arend_
MM club member
Registered: 2005-01-17
Posts: 1894
Loc: Hilversum, The Netherlands
|
Here's my monstrosity for 462:
function a($)
Dim $s, $k, $d, $x, $y, $w, $u, $v
$s=Split($,",")
$d=$s
$x=$s[0]
$y=10
For $k=0 To UBound($d)
Dim $q
$q=$d[$k]
$a=$a+$q+"="
Do
Dim $i, $r, $p, $t
For $i=1 to Len($q)
$t=SubStr($q,$i,1)
$p=Asc(UCASE($t))-64
$r=$r+IIF($p < 0,CInt($t),$p)
Next
$q=$r
Until LEN($q) = 1
$a=$a+$q+", "
$u=Len($s[$k])
$v=Len($x)
Select
Case Cint($q) < $y
ReDim $w
$y = $q
$x = $s[$k]
Case $q = $y
If $u > $v
$w="Winner="+$s[$k]
EndIf
If $u < $v
$w="Winner="+$x
EndIf
If $u = $v
$w="Draw"
EndIf
EndSelect
Next
If NOT $w
$w="Winner="+$x
EndIf
$a=$a+$w
endfunction
|
Top
|
|
|
|
Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-06 06:03 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-06 06:04 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-06 06:20 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
maciep
|
2014-07-06 06:33 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-07 02:14 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-06 07:49 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-06 08:07 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-06 08:11 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-06 10:45 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-06 11:54 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-07 01:12 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-07 02:00 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-07 06:47 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Arend_
|
2014-07-07 08:18 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Howard Bullock
|
2014-07-07 01:06 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-07 01:41 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-07 01:49 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Stoke
|
2014-07-07 05:53 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Glenn Barnas
|
2014-07-07 07:34 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-08 03:26 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-08 03:54 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-08 04:24 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-08 04:44 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-08 05:00 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-09 07:38 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-13 11:02 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-13 04:52 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-13 04:56 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-14 02:04 AM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Jochen
|
2014-07-14 03:45 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-14 06:31 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
BradV
|
2014-07-14 09:48 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-09-06 08:59 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Allen
|
2014-07-14 04:58 PM
|
Re: Kixgolf - Win, Win, or Draw - Public Round
|
Lonkero
|
2014-07-07 01:41 PM
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 507 anonymous users online.
|
|
|