feat: insert sort written by Haskell

Author: RyosukeDTomita

sort/insert_sort/insert_sort.hs

@@ -0,0 +1,17 @@
+-- 要素を正しい位置に挿入する関数
+insert :: Ord a => a -> [a] -> [a]
+insert e [] = [e] -- 空リストへの挿入
+insert e (x:xs)
+  | e <= x = e:x:xs -- eをxの左へ
+  | otherwise = x:insert e xs -- eをxsの適切な位置へ挿入
+
+-- 挿入ソート関数
+insertSort :: Ord a => [a] -> [a]
+insertSort [] = []
+insertSort (x:xs) = insert x (insertSort xs)
+
+main :: IO ()
+main = do
+  let randomList = [30, 75, 69, 16, 47, 77, 60, 80, 74, 8, 77, 1, 60, 33, 70, 29, 24, 91, 60, 69]
+  print randomList
+  print $ insertSort randomList

sort/insert_sort/insert_sort.py

@@ -14,7 +14,7 @@ def insert_sort(array: List[int]) -> List[int]:
     # ループが1から始まっているのに注意。
     for i in range(1, len(array)):
         tmp = array[i]
-        j = i
+        j = i # jはtmpを挿入する位置を示すindex
 
         # 取り出したtmpと取り出した位置よりひとつ左隣のarray[j-1]の値を比較し，tmpが小さければ入れ替える操作を繰り返す。
         while (j > 0) and (array[j - 1] > tmp):
@@ -27,6 +27,7 @@ def insert_sort(array: List[int]) -> List[int]:
 def main():
     random.seed(3)  # randomシードを指定
     random_array = [random.randint(0, 99) for _ in range(20)]
+    print(random_array)
     print(insert_sort(random_array))