but then came lonkenizer...

 Quote:

Your solution passed all tests

KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_edts.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 15
Speed = 2131 MHz
Memory = 1526 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Easier Done Than Said?
Processing Start = 2008/12/16 23:53:14.718
Processing End = 2008/12/16 23:53:14.718
Duration = 0000/00/00 00:00:00.000
KiXGolf Score = 183


 Code:
Function EDTS($p)
  Dim $, $a[1], $i, $n, $o
    
  For $i = 1 to $p + 1 ^ 0
        
    $EDTS = '<' + $p + '> is ' + $n + acceptable.
        	
    $o = $
    $ = SubStr($p, $i, 1)
        
    $a[0=InStr(aeiou, $)]=$i
        
    If ($a[0] - $a[1]) /3 | ($p^)=2| $o = $ & $ > e
        $n = 'not '
EndFunction
_________________________
!

download KiXnet