code:

---

FUNCTION Game24($n,$e,$r,$)
IF Ubound($n) < 0
  $n = $n,$e,$r,$
  $e=''  $r=''
ENDIF
IF Len($e) < 4
  FOR EACH $ in Split('0 1 2 3')
    IF NOT Instr($e,$)
      $ = Game24($n,$e+$,$r+' '+$n[$]+'.   ',0)
      IF $  $Game24 =$  RETURN  ENDIF
    ENDIF
  NEXT
ELSE
  DIM $a,$s,$e,$z,$y
  $ = Split($r)
  $s = Split('+ - * /')
  FOR EACH $[3]  IN $s
  FOR EACH $[7]  IN $s
  FOR EACH $[11] IN $s
    FOR EACH $a IN Split('/0 6/0 10/0 6 8 14/4 14','/')
      $a = Split($a)
      $e = $
      FOR $z = 1 TO Ubound($a) STEP 2
        $y=$a[$z-1]  $e[$y] ='('  ; kixtart bug (?) '$e[$a[$z]] = ")"' is taken
        $y=$a[$z]    $e[$y] =')'  ; as a comparison not as an assignment.
      NEXT
      $e = Join($e,'')
      $z = Execute('$$y=ABS(24.-('+$e+'))<0.01')
      IF $y  $Game24 =$e  RETURN  ENDIF
    NEXT
  NEXT  NEXT  NEXT
ENDIF
$Game24=''
ENDFUNCTION

---