HSPTV!掲示板

例のsleep sortを適当に作ってみました。
もっとスマートな方法を話し合いましょう。

// 0はソートできません！
#runtime "hsp3cl"

#const NUMBER 30 ;ソートする数字の数
#const TIMER_INTERVAL 10 ;タイマの間隔

dim data, NUMBER ;ソートするデータ
dim interval, NUMBER

tortalTime = 0
tempStr = ""

foreach(data)
  data(cnt) = rnd(10)
  interval(cnt) = data(cnt) *TIMER_INTERVAL
  tortalTime += interval(cnt)

  tempStr += str( data(cnt) )
loop

mes tempStr + "\n合計：" + tortalTime 
tempStr = ""

// こっから本番

while(tortalTime > 0)

  foreach(interval)
    interval(cnt)--
    if (interval(cnt) == 0) : tempStr += str( data(cnt) )
  loop

  tortalTime--

wend

mes tempStr

stop

sleepと並行処理を行わないとどう考えてもただのビンソートっぽい

やっぱHSPじゃ無理なんですかね−。並行処理なんてできませんよね。

ウィンドウタイマを使ったバージョンも書いてみました

#include "user32.as"

#const NUMBER 50

oncmd gosub *put, 0x113

dim data, NUMBER ;ソートするデータ

tempStr = ""

foreach(data)
  data(cnt) = rnd(10)

  SetTimer hwnd, 1+cnt, data(cnt) *100, 0

  tempStr += str( data(cnt) )
loop

mes tempStr
tempStr = ""

stop
// こっから本番
*put
  tempStr += str( data(wparam -1) )

  KillTimer hwnd, wparam

  if (strlen(tempStr) == NUMBER) :mes tempStr

return

まとめ
http://www.yuyak.com/1339

スリープソート吹いたw