HSPでsleep sortを実装してみた

アルゴリズム

2011.05.31

この前、sleep sort(元ネタ)というのを知って、
HSPでSetTimerでそれっぽいのを作ったのですが、
掲示板のwait0000さんが作ったのと普通に被ってしまったので寝かせてました。

うん。

でも5月に1度も投稿してなかったので、投稿します(^^)
実用性とかそういうのなしで、発想力がすごい。

//sleep sort

//元ネタ
//http://dis.4chan.org/read/prog/1295544154
;Genius sorting algorithm: Sleep sort
;1 Name: Anonymous : 2011-01-20 12:22
;Man, am I a genius. Check out this sorting algorithm I just invented.
;
;
;#!/bin/bash
;function f() {
;	sleep "$1"
;	echo "$1"
;}
;while [ -n "$1" ]
;do
;	f "$1" &
;	shift
;done
;wait
;
;example usage:
;./sleepsort.bash 5 3 6 3 6 3 1 4 7

#uselib "user32.dll"
#func SetTimer "SetTimer" int,int,int,sptr
#func KillTimer "KillTimer" int,int
#define WM_TIMER 0x0113
#define N 20

randomize
dim number, N
oncmd gosub *OnTimer,WM_TIMER
repeat N
	number = rnd(100) + 1
	SetTimer hwnd, number, number * 10, 0
loop
stop

*OnTimer
	KillTimer hwnd, wparam
	mes wparam
	return

そういえば、しひさんがプロセスを作って実装という
本物のsleep sortが投稿してあってすごいと思った。