code:

---

Game24 v 1.1 KiXtart Golf running under KiXtart v4.11

In: 3388; Out: 8.0/(3.0-8.0/3.0)      = 24 => Correct!!
In: 4429; Out: (9.0-2.0)*4.0-4.0      = 24 => Correct!!
In: 1234; Out: (1.0+2.0+3.0)*4.0      = 24 => Correct!!
In: 2268; Out: (2.0+6.0)+8.0*2.0      = 24 => Correct!!
In: 4466; Out:                        =    => Correct!!
In: 0380; Out: (0.0+3.0)*8.0+0.0      = 24 => Correct!!
In: 7443; Out: (7.0+4.0/4.0)*3.0      = 24 => Correct!!
In: 4459; Out:                        =    => Correct!!
In: 8978; Out: (9.0-7.0)*8.0+8.0      = 24 => Correct!!
In: 6782; Out: 8.0*(2.0+7.0-6.0)      = 24 => Correct!!
In: 0814; Out: (0.0-8.0)*(1.0-4.0)    = 24 => Correct!!
In: 9743; Out: (9.0-7.0)*4.0*3.0      = 24 => Correct!!
In: 8953; Out: (5.0-8.0)+3.0*9.0      = 24 => Correct!!
In: 9042; Out:                        =    => Correct!!
In: 0249; Out:                        =    => Correct!!
In: 6671; Out:                        =    => Correct!!
In: 1902; Out:                        =    => Correct!!
In: 2978; Out: (7.0+9.0)*2.0-8.0      = 24 => Correct!!
In: 2529; Out: 2.0*(5.0-2.0+9.0)      = 24 => Correct!!
In: 1071; Out:                        =    => Correct!!
In: 8781; Out: (8.0+7.0)+8.0+1.0      = 24 => Correct!!
In: 7439; Out: (7.0+4.0)*3.0-9.0      = 24 => Correct!!
In: 6716; Out:                        =    => Correct!!
In: 4349; Out: (4.0+4.0)*9.0/3.0      = 24 => Correct!!
In: 1027; Out:                        =    => Correct!!
In: 3477; Out: (3.0+4.0*7.0)-7.0      = 24 => Correct!!
In: 1289; Out: (8.0*9.0)/(2.0+1.0)    = 24 => Correct!!
In: 3377; Out: (3.0+3.0/7.0)*7.0      = 24 => Correct!!

kix32 Kixgolf3.kix $f=junk.kix

KixGolf score = 442  

---

code:

---

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

   Dim $h, $j, $l, $p, $q, $r, $s, $t, $v, $, $x, $y
   $h = "+","-","/","*"
   for $y=1 to 4
      for $x=1 to 4
         for each $p in $h
            for each $q in $h
               for each $r in $h
                  for each $j in split("0,8~0,8,10,18~0,12~4,16","~")
                     $ = ".0"
                     $s = ""+$a+$+$p+$b+$+$q+$c+$+$r+$d+$
                     for each $ in split($j,",")
                        $l = chr(40 + ($l="("))
                        $s = "" + left($s,$) + $l + substr($s,1+$)
                     next
                     $t = execute("$$v=$s")
                     if abs($v-24)< 1E-9
                        goto E
                     endif
                  next
               next
            next
         next
         $ = $b
         $b = $c
         $c = $d
         $d = $
      next
      $ = $a
      $a = $b
      $b = $
   next
   $s = ""

   :E
      $game24 = $s
      exit
endfunction
  

---