【アルゴリズム】ヒープソートの動きを見たい（PowerShell編）

$hai =(3,1,2,9,6,4,5,7,8)

function heap($k, $r){
 $v = $hai[$k];
 while(1){
  $j = 2 * $k + 1;
  if($j -gt $r){
   break;
  }
  if($j -ne $r){
   if($hai[$j + 1] -gt $hai[$j]){
    $j = $j + 1;
   }
  }
  if($v -ge $hai[$j]){
   break;
  }
  $hai[$k] = $hai[$j];
  $k = $j;
 }
 $hai[$k] = $v;
 show
}

function swap($i , $j){
 $tmp = $hai[$i];
 $hai[$i] = $hai[$j];
 $hai[$j] = $tmp;
}

function show(){
 cls
 for($i = 0 ; $i -lt $hai.length ; $i++){
  for($j=0 ; $j -lt $hai[$i] ; $j++){
   write-host -n ".";
  }
  echo ""
 }
 sleep(1);
}

function start_heap(){
 show
 for($i = [int]([Math]::Floor(($hai.length -2)/2)) ;$i -ge 0 ; $i--){
  heap $i ($hai.length -1);
 }
 for($i = $hai.length - 1 ; $i -gt 0 ; $i--){
  swap 0 $i;
  heap 0 ($i - 1);
 }
}

if((read-host "ソート開始します[y]") -eq "y"){
 start_heap
}
read-host "何か入力して終了"

PS C:\Users\myaccount> &"D:\Users\適当なファイル名.ps1"

PS C:\Users\myaccount> &"D:\Users\適当なファイル名.ps1"
ソート開始します[y]:y