- VBScriptについて必死に話し合うスレ
387 ：デフォルトの名無しさん[sage]：2014/05/31(土) 22:49:16.25 ID:GpjJEzhO - https://friendpaste.com/2XV1rOgFjeUtHoyTJIDQvF
の移植
#pipi.ps1
function global:pipibubblesort ($a) {
#$l=$a.length
for ($i=$a.GetUpperBound(0)+1; $i -gt $a.GetLowerBound(0) ; $i--) {
for ($j = $a.GetLowerBound(0); $j -lt $i - 1; $j++) {
if ($a[$j] -gt $a[$j+1]) {
$t=$a[$j]
$a[$j]=$a[$j+1]
$a[$j+1]=$t
#$a[$j],$a[$j+1]=$a[$j+1],$a[$j]
#perl,rubyのように多重代入可能だ
}
}
}
}
PS .\pipi.ps1
PS $a=(2,3,1,7,6)
PS pipibubblesort($a) ←TABで補完可能！
PS $a
桃白白の細かいこだわりまで再現できてるしさらなる改良も可能
でもやっぱりvbsとは雰囲気違うかな
桃白白はvbsと心中するのもありだと思う
|
|