[*]All four integers must be used
[*]Each integer may only be used once
[*]Only the basic math operators +, -, *, / and parentheses ( and ) are allowed
[*]The formula must conform to standard math rules, thus for example 3 / 2 = 1.5 or 1 / 3 = 0.3 period (0.333333....).

[*]The formula must conform to the math rules of precedence (for example * before +)

[*]Some combinations can result in multiple solutions, only one is to be returned

[*]Some combinations may not result in a valid solution, then an empty string is to be returned

code:

---

$outputstring=Game24($digit1,$digit2,$digit3,$digit4)

---

code:

---

$out = Game24(1,2,3,4)

---

code:

---

$out = '(1+2+3)*4'

---

code:

---

$out = '1*2*3*4'

---

code:

---

BREAK ON

DIM $rc, $out, $result, $i1, $i2, $i3, $i4

$rc=SETOPTION('Explicit','ON')
$rc=SETOPTION('NoVarsInString','ON')
$rc=SRND(@MSECS)


? 'Game24 KiXtart Golf running under KiXtart v'@KIX
? ''

$i1=1
$i2=2
$i3=3
$i4=4
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
$out=Game24($i1,$i2,$i3,$i4)
if trim($out)=''
  ? 'Incorrect answer, there is a solution to this combination'
  ? ''+$out+' <> 24'
else
  ? 'Please doublecheck your solution to guarantee a correct result'
  ? ''+$out+' = 24'
endif
? ''

$i1=2
$i2=2
$i3=6
$i4=8
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
$out=Game24($i1,$i2,$i3,$i4)
if trim($out)=''
  ? 'Incorrect answer, there is a solution to this combination'
  ? ''+$out+' <> 24'
else
  ? 'Please doublecheck your solution to guarantee a correct result'
  ? ''+$out+' = 24'
endif
? ''

$i1=4
$i2=4
$i3=6
$i4=6
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
$out=Game24($i1,$i2,$i3,$i4)
if trim($out)=''
  ? 'Correct answer answer, there is no solution to this combination'
else
  ? 'Incorrect answer, there is no solution to this combination'
endif
? ''

$i1=3
$i2=3
$i3=8
$i4=8
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
$out=Game24($i1,$i2,$i3,$i4)
if trim($out)=''
  ? 'Incorrect answer, there is a solution to this combination'
  ? ''+$out+' <> 24'
else
  ? 'Please doublecheck your solution to guarantee a correct result'
  ? ''+$out+' = 24'
endif
? ''

$i1=RND(9)
$i2=RND(9)
$i3=RND(9)
$i4=RND(9)
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
$out=Game24($i1,$i2,$i3,$i4)
if trim($out)=''
  ? 'No solution found'
  ? ''+$out+' <> 24'
else
  ? 'Please doublecheck your solution to guarantee a correct result'
  ? ''+$out+' = 24'
endif
? ''


$i1=3
$i2=4
$i3=7
$i4=7
$out=Game24($i1,$i2,$i3,$i4)
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
if trim($out)=''
  ? 'Incorrect answer, there is a solution to this combination'
  ? ''+$out+' <> 24'
else
  ? 'Please doublecheck your solution to guarantee a correct result'
  ? ''+$out+' = 24'
endif
? ''

$i1=1
$i2=2
$i3=8
$i4=9
$out=Game24($i1,$i2,$i3,$i4)
? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
if trim($out)=''
  ? 'Incorrect answer, there is a solution to this combination'
  ? ''+$out+' <> 24'
else
  ? 'Please doublecheck your solution to guarantee a correct result'
  ? ''+$out+' = 24'
endif
? ''

function game24($a,$b,$c,$d)
endfunction

---

code:

---

for $b=0 to ubound($a)
  if $a[$b]>0
    $c=$c+1
  endif
next

---

code:

---

(1+3)*(2+4)=24
(3+1)*(2+4)=24
(3+1)*(4+2)=24

---

I've been playing around with it yesterday during my class and I believe it all boils down to four generic formulas. However, you're welcome to code all 5040 unique permutations

code:

---

BREAK ON

Global $Target

$Target = 24

$rc=SETOPTION('Explicit','ON')
$rc=SETOPTION('NoVarsInString','ON')
$rc=SRND(@MSECS)


? 'Game24 KiXtart Golf running under KiXtart v'@KIX
? ''

test24(1,2,3,4,1)
test24(2,2,6,8,1)
test24(4,4,6,6,2)
test24(3,3,8,8,2)
test24(RND(9),RND(9),RND(9),RND(9),3)
test24(3,4,7,7,1)
test24(1,2,8,9,1)
? ""

; Inputs: $i1..$i4 => 4 numbers to pass to game24
; $behaviour = 1 -> Expected result
; $behaviour = 2 -> Expected to fail
; $behaviour = 3 -> Don't know (random)
function test24($i1,$i2,$i3,$i4,$behaviour)
DIM $rc, $out, $result, $error, $str
$str = 'In => '+$i1+', '+$i2+', '+$i3+', '+$i4+'; Out => '
$out=Game24($i1,$i2,$i3,$i4)
$error=trim(Execute("$$result=("+$out+")"))
if $result = $Target
  $str = $str + $out + " = " + $result
else
  $str = $str + $out + " = " + $result
endif
if ( ($behaviour=1) and ($result=$Target) ) or ( ($behaviour=2) and ($result='') )
  $str = $str + " => Correct!!"
else
  if ( $behaviour = 3 )
    $str = $str + " => Not sure..."
  else
    $str = $str + " => WRONG!!"
  endif
endif
? $str
endfunction

Dim $shellcommand
$shellcommand='kix32 Kixgolf3.kix $f='+@scriptname
? $shellcommand
Shell $shellcommand

;!
function game24($a,$b,$c,$d)
$game24="9*3-2-1";$a+$b+$c+$d
endfunction
;!
;!

---

code:

---

$s = execute("$$v = 8.0/(3.0-8.0/3.0)") 
? $v
if $v=24
   ? "hey this equals 24"
else
   ? "wait a minute - this does not equal 24"
endif
  

---

code:

---

Break on

$s = Execute("$$v = 8.0/(3.0-8.0/3.0)")
If $v=24
   ? "hey this equals 24"
Else
   ? "wait a minute - this does not equal 24"
EndIf 
? ?
? " V     - " $v " - " VarTypeName($v)
$v = Val($v)
? " Val V - " $v " - " VarTypeName($v)
$x = 24
? " X     - " $x " - " VarTypeName($x)
$x = Val($x)
? " Val X - " $x " - " VarTypeName($x)


Get $x

Exit (0)

---

code:

---

$s = Execute("$$v = 8.0/(3.0-8.0/3.0)")
If cint($v)=24
   ? "hey this equals 24"
Else
   ? "wait a minute - this does not equal 24"
EndIf  

---

code:

---

$s = Execute("$$v = 8.0/(3.0-8.0/3.0)")
If $v=cdbl(24)
   ? "hey this equals 24"
Else
   ? "wait a minute - this does not equal 24"
EndIf  

---

code:

---

$s = Execute("$$v = 8.0/(3.0-8.0/3.0)")
$=cdbl(24)
if $<$v
$diff=$v-$ "24 is smaller by:"
else
$diff=$-$v "24 is bigger by:"
endif
$diff=$diff*1000000 
$diff=$diff*1000000 
$diff
" / 1000 000 000 000"

get $

---

code:

---

Break on

$a='(cdbl(3)+cdbl(3)/cdbl(7))*cdbl(7)'

$rc=execute('$$b='+$a)

? 'Result = '+$b

? 'Result = '+($b=24)

? 'Result = '+vartypename($b)

---

code:

---

Result = 24
Result = 1
Result = Double

---

code:

---

$a='cdbl(8)/(cdbl(3)-cdbl(8)/cdbl(3))'
$rc=execute('$$b='+$a)
? 'Result = '+$b
? 'Result = '+($b=24)
? 'Result = '+vartypename($b)
  

---

code:

---

? 'Result = '+(cint($b)=24)  

---

code:

---

$a='(cdbl(3)/cdbl(8))+cdbl(8)*cdbl(3)'

$rc=execute('$$b='+$a)
? 'Result = '+$b
? 'Result = '+(cint($b)=24)
? 'Result = '+vartypename($b)
  

---

quote:

---

I also get another inconsistency with Madruga's test script. His script gives:

In => 3, 3, 7, 7; Out => ( 3 + 3 / 7 ) * 7 = 21 => WRONG!!

Which is clearly incorrect.

---

Why is that incorrect? If I use integer math, then 3 / 7 = 0, + 3 = 3, * 7 = 21... Have I forgotten something from school?
Surelly that is not the intended result!
You may be induced in error by the "WRONG!" part: it does not mean that the expression is wrong, it only means that that expression does not evaluate to the expected result of 24...

P.S.: I'm still trying to figure out a decent algorithm... When I do, I'll sure as hell post the results here...

[ 17. September 2002, 02:08: Message edited by: Fernando Madruga ]

code:

---

BREAK ON
 
Global $Target
 
$Target      = 24
$ErrorMargin = 0.0001
 
$rc=SETOPTION('Explicit','ON')
$rc=SETOPTION('NoVarsInString','ON')
$rc=SRND(@MSECS)
 

? 'Game24 KiXtart Golf running under KiXtart v'@KIX
? ''
 
test24(1,2,3,4,1)
test24(2,2,6,8,1)
test24(4,4,6,6,2)
test24(3,3,8,8,2)
test24(RND(9),RND(9),RND(9),RND(9),3)
test24(3,4,7,7,1)
test24(1,2,8,9,1)
test24(3,3,7,7,1)
? ""
 
; Inputs: $i1..$i4 => 4 numbers to pass to game24
; $behaviour = 1 -> Expected result
; $behaviour = 2 -> Expected to fail
; $behaviour = 3 -> Don't know (random)
function test24($i1,$i2,$i3,$i4,$behaviour)
DIM $rc, $out, $result, $error, $str, $i
$str = 'In => '+$i1+', '+$i2+', '+$i3+', '+$i4+'; Out => '
$out=Game24($i1,$i2,$i3,$i4)
$i = 1
while $i <= Len($out)
  if ( SubStr($out,$i,1) >= '0' ) and ( SubStr($out,$i,1) <= '9' )
    $out = Left($out,$i) + '.0' + SubStr($out,$i+1)
    $i = $i + 2;
  endif;
  $i = $i + 1;
loop
$error=Execute("$$result=("+$out+")")
$result=Trim($result)
$str = $str + $out + " = " + $result
if ( $behaviour = 3 )
  $str = $str + " => Not sure..."
else
  if ( ($behaviour=1) and ($result>=$Target-$ErrorMargin) and ($result<=$Target+$ErrorMargin) ) or ( ($behaviour=2) and ($result='') )
    $str = $str + " => Correct!!"
  else
    $str = $str + " => WRONG!!"
  endif
endif
? $str
endfunction
 
Dim $shellcommand
$shellcommand='kix32 Kixgolf3.kix $f='+@scriptname
? $shellcommand
Shell $shellcommand
 
; Operators: 64 combinations
; +++  ++-  ++*  ++/  +-+  +--  +-*  +-/  +*+  +*-  +**  +*/  +/+  +/-  +/*  +//
; -++  -+-  -+*  -+/  --+  ---  --*  --/  -*+  -*-  -**  -*/  -/+  -/-  -/*  -//
; *++  *+-  *+*  *+/  *-+  *--  *-*  *-/  **+  **-  ***  **/  */+  */-  */*  *//
; /++  /+-  /+*  /+/  /-+  /--  /-*  /-/  /*+  /*-  /**  /*/  //+  //-  //*  ///
 
; Digits: 24 permutations
; abcd  abdc  acbd  acdb  adbc  adcb
; bacd  badc  bcad  bcda  bdac  bdca
; cabd  cadb  cbad  cbda  cdab  cdba
; dabc  dacb  dbac  dbca  dcab  dcba
 
; Parentheses: 7 combinations
; (ab)(cd)
; (ab)cd
; (abc)d
; a(bc)d
; a(bcd)
; ab(cd)
; abcd
 
;!
function game24($a,$b,$c,$d)
 
endfunction
 
;!
;!

---

quote:

---

can you give me an example why "((ab)c)d" is also a combination?
I think it's the same as "(ab)cd"

---

code:

---

                  3
(3+3/7)*7 = ( 3 + - ) * 7
                  7

              3 * 7 + 3
          = ( --------- ) * 7
                  7

          = ( 3 * 7 + 3 ) / 7 * 7

          = ( 3 * 7 + 3 ) * 7 / 7

          = 24

or generic

(a+b/c)*d = ( a * c + b) * d / c

---

quote:

---

Maybe I'm missing something...
(1+2)+3/3 = 4
((1+2)+3)/3 = 2

---

code:

---

a+(bcd) -> (bcd)+a  : does not matter what ops are inside as
                      + is low precedence
 
a-(bcd) -> nothing! : What kind of expression would you need
                      inside parens to get 24 by subtracting
                      to 0..9?? Yes, I know that 0-(-something)
                      will be positive, but we can't have another
                      negative number inside the parens!!!
{edit} Actually, we can, but it does not create a solution! {/edit}
{edit} And it can be rewritten as not to need the parens! {/edit}
 
a/(bcd) -> nothing! : Again, what kind of number would we need
                      inside parens to get 24? A very small number!
                      In order to be so, we'd need something like
                      a/(b/c/d) because a/(b+c/d) or a/(b/c+d) would
                      not give a number below 1 unless the added item
                      was 0 and even then it would not be "small enough"
                      to get 24... (hope you're still following me!)
                      If we did not use a / inside the parens, then
                      the number would not be between 0 and 1 and so,
                      dividing a number from 1 to 9 by it would not
                      yield the needed result! Finally, a/(b/c/d) can
                      be simplified as a/b/c/d !!!
 
a*(bcd) -> (bcd)*a  : We will arrive at this test case sooner or later!
                      So, no need to handle it in here.
 
Please check my assumptions, but I do believe that a(bcd) can be safely
left out of the game as we're not trying to get ALL solutions but just
ONE!

---

quote:

---

Madruga

What about 8/(1*1/4)?

---

code:

---

$a='cdbl(8)/(cdbl(3)-cdbl(8)/cdbl(3))'
$rc=Execute("$$b=$a")
? 'Result $$b    = '$b
? 'Result 24=$$b = '+(24=$b)
? 'Result $$b=24 = '+($b=24)
? 'Result type  = '+VarTypeName($b)

---

code:

---

Result $b    = 24
Result 24=$b = 1
Result $b=24 = 0
Result type  = Double

---

Does anyone have an explaination for this behaviour???

code:

---

  13 (unlucky number!) depend on having two sets of (), that is (ab)(cd)
 131 depend on having at least one '+'
 174 depend on having at least one '-'
 306 depend on having at least one '*'
  36 depend on having at least one '/'

---

By now, it's clear to you guys: I was trying to simplify the algorithm by not including something!!!

Just thought to share my findings with you guys. Haven't coded a single KiXtart line yet...

[ 18. September 2002, 01:09: Message edited by: Fernando Madruga ]

code:

---

   0 need (ab)cd
   0 need a(bc)d
   0 need ab(cd)
------------------
   1 need (abc)d
------------------
   3 need a(bcd)
  13 need (ab)(cd)
------------------
 131 need at least one '+'
 174 need at least one '-'
 306 need at least one '*'
  36 need at least one '/'

---

So, and for the purpose of this game that is to find ONE
(repeat: ONE) solution, we can eliminate these constructs:
(ab)cd, a(bc)d, ab(cd).

The (abc)d construct is only used for these numbers
(and respective permutations): 1277 == (7*7-1)/2.

The a(bcd) construct is needed for these 3 sets:
1346 == 6/(1-3/4); 1456 == 6/(5/4-1); 1668 == 6/(1-6/8)

As for the (ab)(cd), 13 is too much to test for...
Even 3 may prove to be too much!

Hope this helps you guys, even though I may be shooting myself in the foot,
but hey! this is just a friendly competition...

Gonna do some work, then sleep over it. I'll probably only get back to this
in some 48 hours or so to start (and finish) my coding for this one, so
don't be surprised if you don't read from me for a couple of days...

[ 18. September 2002, 17:31: Message edited by: Fernando Madruga ]

code:

---

23.8
23.8333333333333
23.8571428571429
23.875
23.8888888888889
24.1111111111111
24.125
24.1428571428571
24.1666666666667
24.2

---

As you can see, the closest ones are 23.8888888888889 and 24.1111111111111. They are VERY far from the needed 24 result, so we could even just check for 23.9
I think that this particular info may be of interest to all that are "fighting" with this game...

[ 19. September 2002, 11:17: Message edited by: Fernando Madruga ]

quote:

---

The point is that it passes the tests. The tests may be flawed, but the code passes them. The random "test" is pointless because it does not evaluate the truth of the answer - any response is correct.

---

Sorry to disagree with you on this one, but "any response is correct" is not true! You're suposed to check the provided result! And if you "cheat" by "looking the other way" on the random test, you'll fail to comply with the given objectives!

Besides, I might take some minutes out of my lunch hour to improve "my" version of the test program so that it "fixes" that manual input...

quote:

---

Sorry to disagree with you on this one, but "any response is correct" is not true! You're suposed to check the provided result! And if you "cheat" by "looking the other way" on the random test, you'll fail to comply with the given objectives!

---

quote:

---

Game24 KiXtart Golf running under KiXtart v4.11

Numbers = 1, 2, 3, 4
Please doublecheck your solution to guarantee a correct result
(1.0+2.0+3.0)*4.0 = 24

Numbers = 2, 2, 6, 8
Please doublecheck your solution to guarantee a correct result
(2.0+6.0)+8.0*2.0 = 24

Numbers = 4, 4, 6, 6
Correct answer answer, there is no solution to this combination

Numbers = 3, 3, 8, 8
Please doublecheck your solution to guarantee a correct result
8.0/(3.0-8.0/3.0) = 24

Numbers = 0, 5, 9, 5
No solution found
<> 24

Numbers = 3, 4, 7, 7
Please doublecheck your solution to guarantee a correct result
(3.0+4.0*7.0)-7.0 = 24

Numbers = 1, 2, 8, 9
Please doublecheck your solution to guarantee a correct result
(8.0*9.0)/(2.0+1.0) = 24

Time: 8232 ticks

KixGolf v3.0.3 score = 542, running under KiXtart v4.10

C:\Data\Scripts\Golf>C:\Data\Kix2001\KiX2001.411\kix32 golf4.kix

---

quote:

---

It's not cheating, it's taking advantage of a loophole.

If the code correctly responds to the random numbers when run it passes the test *and* it complies with all the given objectives.

---

Sorry... Wrong again...

Anything that is not repeatable, can't be said to conform to these specs... You see, what happens if the exact same time someone is trying to comprove your code it fails on them? It's almost like going: "this is dangerous: I'll stick my head into the sand and hopefully they'll miss me"...

P.S.: I'm not trying to remove the fun here...

code:

---

[d:\work\admin\kixtart\kixgolf4]timer /1 on %+ kix32 test.kix %+ timer /1 off
Timer 1 on: 14:37:54

Game24 KiXtart Golf running under KiXtart v4.11

In => 1, 2, 3, 4; Out =>  =  => WRONG!!
In => 2, 2, 6, 8; Out =>  =  => WRONG!!
In => 4, 4, 6, 6; Out =>  =  => Correct!!
In => 3, 3, 8, 8; Out =>  =  => Correct!!
In => 0, 4, 8, 9; Out =>  =  => NOT in solution set!!
In => 8, 8, 3, 1; Out =>  =  => Correct!!
In => 5, 1, 5, 6; Out =>  =  => Correct!!
In => 8, 8, 4, 3; Out =>  =  => NOT in solution set!!
In => 9, 9, 4, 8; Out =>  =  => Correct!!
In => 6, 9, 4, 9; Out =>  =  => Correct!!
In => 0, 7, 0, 6; Out =>  =  => NOT in solution set!!
In => 1, 8, 1, 1; Out =>  =  => Correct!!
In => 6, 8, 3, 2; Out =>  =  => Correct!!
In => 1, 5, 4, 8; Out =>  =  => Correct!!
In => 2, 9, 7, 8; Out =>  =  => Correct!!
In => 5, 8, 2, 7; Out =>  =  => Correct!!
In => 1, 0, 3, 7; Out =>  =  => Correct!!
In => 1, 1, 7, 7; Out =>  =  => NOT in solution set!!
In => 5, 6, 0, 3; Out =>  =  => NOT in solution set!!
In => 2, 9, 9, 1; Out =>  =  => NOT in solution set!!
In => 5, 3, 9, 0; Out =>  =  => Correct!!
In => 0, 1, 7, 8; Out =>  =  => NOT in solution set!!
In => 5, 9, 7, 0; Out =>  =  => NOT in solution set!!
In => 0, 7, 6, 6; Out =>  =  => NOT in solution set!!
In => 3, 4, 7, 7; Out =>  =  => WRONG!!
In => 1, 2, 8, 9; Out =>  =  => WRONG!!
In => 3, 3, 7, 7; Out =>  =  => WRONG!!

kix32 Kixgolf3.kix $f=test.kix

KixGolf v3.0.3 score = 38, running under KiXtart v4.11
Timer 1 off: 14:37:57  Elapsed: 0:00:02,83

[d:\work\admin\kixtart\kixgolf4]

---

code:

---

BREAK ON
 
Global $Target, $Valid
 
$Target      = 24
$ErrorMargin = 0.0001
$Valid = "003800460128013601370138013901450146014701480155015602260234"
       + "023602380239024402460248025702580266026802690288033403350337"
       + "033803390344034603480349035803590366036703680378038803890445"
       + "044604470448045604660467046804690478048805660569058806890699"
       + "078908881118112611271128112911341135113611371138113911441145"
       + "114611471148114911551156115711581166116811691188122412251226"
       + "122712281229123312341235123612371238123912441245124612471248"
       + "124912551256125712581259126612671268126912771278127912881289"
       + "133313341335133613371338133913441345134613471348134913561357"
       + "135813591366136713681369137713781379138813891399144414451446"
       + "144714481449145514561457145814591466146714681469147714781479"
       + "148814891555155615591566156715681569157815791588158915991666"
       + "166816691679168816891699177917881789179918881889222322242225"
       + "222722282229223322342235223622372238223922442245224622472248"
       + "224922552256225722582259226622672268226922772278228822892333"
       + "233523362337233823392344234523462347234823492355235623572358"
       + "235923662367236823692377237823792388238923992444244524462447"
       + "244824492455245624572458245924662467246824692477247824792488"
       + "248924992557255825592566256725682569257725782579258825892666"
       + "266726682669267826792688268926992778278827892888288928993333"
       + "333433353336333733383339334433453346334733483349335533563357"
       + "335933663367336833693377337833793389339934443445344634473448"
       + "344934553456345734583459346634683469347734783479348934993556"
       + "355735583559356635673568356935783579358835893599366636673668"
       + "366936773678367936883689369937773778377937883789379938883889"
       + "389939994444444544464447444844494455445644574458446844694477"
       + "447844794488448945554556455745584559456645674568456945774578"
       + "457945884589459946664667466846694677467846794688468946994777"
       + "477847884789479948884889489955555556555955665567556855775578"
       + "558855895599566656675668566956775678567956885689569957795788"
       + "578958885889666666686669667966886689678967996888688968997889"
 
$rc=SETOPTION('Explicit','ON')
$rc=SETOPTION('NoVarsInString','ON')
$rc=SRND(@MSECS)
 
? 'Game24 v 1.1 KiXtart Golf running under KiXtart v'@KIX
? ''
Dim $i
 
test24(1,2,3,4,1)
test24(2,2,6,8,1)
test24(4,4,6,6,2)
test24(3,3,8,8,2)
for $i = 1 to 20
  test24(RND(9),RND(9),RND(9),RND(9),3)
next
test24(3,4,7,7,1)
test24(1,2,8,9,1)
test24(3,3,7,7,1)
? ""
 
; Inputs: $i1..$i4 => 4 numbers to pass to game24
; $behaviour = 1 -> Expected result
; $behaviour = 2 -> Expected to fail
; $behaviour = 3 -> Don't know (random)
function test24($i1,$i2,$i3,$i4,$behaviour)
  DIM $rc, $out, $result, $error, $str, $i, $found, $temp, $nums[4], $numbers
  
  $str = 'In => '+$i1+', '+$i2+', '+$i3+', '+$i4+'; Out => '
  $out=Game24($i1,$i2,$i3,$i4)
  $i = 1
  while $i <= Len($out)
    if ( SubStr($out,$i,1) >= '0' ) and ( SubStr($out,$i,1) <= '9' )
      $out = Left($out,$i) + '.0' + SubStr($out,$i+1)
      $i = $i + 2;
    endif;
    $i = $i + 1;
  loop
  $error=Execute("$$result=("+$out+")")
  $result=Trim($result)
  $str = $str + $out + " = " + $result
  if ( $behaviour = 3 )
    ;  $str = $str + " => Not sure..."
    ; sort numbers used, so as to check array of possible solutions
    $nums[0] = $i1
    $nums[1] = $i2
    $nums[2] = $i3
    $nums[3] = $i4
    do
      $found = 0
      for $i = 0 to 2
        if $nums[$i] > $nums[$i+1]
          $found = 1
          $temp       = $nums[$i+1]
          $nums[$i+1] = $nums[$i]
          $nums[$i]   = $temp
        endif
      next
    until $found == 0
    $numbers = "" + $nums[0] + $nums[1] + $nums[2] + $nums[3]
    ; check for presence in array
    $found = 0
    $i = 1
    while ( $found == 0 ) and ( $i < Len($Valid) )
      if ( SubStr( $Valid, $i, 4 ) == $numbers )
        $found = 1
      endif
      $i = $i + 4
    loop
    if $found
      $str = $str + " => Correct!!"
    else
      $str = $str + " => NOT in solution set!!"
    endif
  else
    if ( ($behaviour=1) and ($result>=$Target-$ErrorMargin)
         and ($result<=$Target+$ErrorMargin) )
       or ( ($behaviour=2) and ($result='') )
      $str = $str + " => Correct!!"
    else
      $str = $str + " => WRONG!!"
    endif
  endif
  ? $str
endfunction
 
Dim $shellcommand
$shellcommand='kix32 Kixgolf3.kix $f='+@scriptname
? $shellcommand
Shell $shellcommand
 
; Operators: 64 combinations
; +++  ++-  ++*  ++/  +-+  +--  +-*  +-/  +*+  +*-  +**  +*/  +/+  +/-  +/*  +//
; -++  -+-  -+*  -+/  --+  ---  --*  --/  -*+  -*-  -**  -*/  -/+  -/-  -/*  -//
; *++  *+-  *+*  *+/  *-+  *--  *-*  *-/  **+  **-  ***  **/  */+  */-  */*  *//
; /++  /+-  /+*  /+/  /-+  /--  /-*  /-/  /*+  /*-  /**  /*/  //+  //-  //*  ///
 
; Digits: 24 permutations
; abcd  abdc  acbd  acdb  adbc  adcb
; bacd  badc  bcad  bcda  bdac  bdca
; cabd  cadb  cbad  cbda  cdab  cdba
; dabc  dacb  dbac  dbca  dcab  dcba
 
; Parentheses: 5 combinations
;  a b  c d
;  a b (c d)
; (a b)(c d)
;  a(b  c d)
; (a b  c)d
 
;    0 need (ab)cd
;    0 need a(bc)d
;    0 need ab(cd)
; ------------------
;    1 need (abc)d
; ------------------
;    3 need a(bcd)
;   13 need (ab)(cd)
; ------------------
;  131 need at least one '+'
;  174 need at least one '-'
;  306 need at least one '*'
;   36 need at least one '/' 
;!
function game24($a,$b,$c,$d)
 
endfunction
 
;!
;!

---

quote:

---

kix32 Kixgolf3.kix $f=test.kixKix
Golf v3.0.3 score = 38, running under KiXtart v4.11
Timer 1 off: 14:37:57 Elapsed: 0:00:02,83
[d:\work\admin\kixtart\kixgolf4]

---

wow again! you got only 38 strokes

why you boys keep on fighting anymore

quote:

---

+ "3388"

---

quote:

---

$rc=SETOPTION('Explicit','ON')

---