more

Author: igr

haskell/.vscode/phoityne.log

@@ -7,3 +7,4 @@
 2024-06-15 00:27:00.787216000000 [39436(ThreadId 17)] ERROR APP - start debugging failed. user error (ExecResult not found.) : Left "user error (ExecResult not found.)"
 2024-06-15 00:30:49.937170000000 [40083(ThreadId 16)] CRITICAL REQUEST - invalid HANDLE. eof.
 2024-06-15 00:31:21.254897000000 [40466(ThreadId 16)] CRITICAL REQUEST - invalid HANDLE. eof.
+2024-06-27 10:15:11.049245000000 [65370(ThreadId 16)] CRITICAL REQUEST - invalid HANDLE. eof.

haskell/app/HelloWorld.hs

@@ -0,0 +1,31 @@
+{-# LANGUAGE FlexibleInstances, UndecidableInstances, DuplicateRecordFields #-}
+
+module HelloWorld(mainHW) where
+
+import Control.Monad
+
+helloWorlds :: (Num n, Eq n) => n -> IO() -> IO()
+helloWorlds 0 _ = return ()
+helloWorlds n action = do
+    action
+    helloWorlds (n - 1) action
+
+helloWorlds2 :: Int -> IO() -> IO()
+helloWorlds2 n action = do
+    forM_ [1..n] $ \_ -> action
+
+helloWorlds3 :: Int -> IO() -> IO()
+helloWorlds3 n action = mapM_ (const action) [1..n]
+
+mainHW :: IO()
+mainHW = do
+    n <- readLn :: IO Int
+    helloWorlds n $ putStrLn "Hello World"
+    ---also
+    sequence_ $ replicate n $ putStrLn "Hello World"
+    -- also
+    replicateM_ n (putStrLn "Hello World")
+    -- also
+    helloWorlds2 n $ putStrLn "Hello World"
+    -- also
+    helloWorlds3 n $ putStrLn "Hello World"

haskell/app/ListReplication.hs

@@ -0,0 +1,9 @@
+module ListReplication (mainLR) where
+
+-- Given a list, repeat each element in the list  amount of times.
+f :: Int -> [Int] -> [Int]
+f n arr = concatMap (replicate n) arr
+
+mainLR:: IO()
+mainLR = getContents >>=
+       mapM_ print. (\(n:arr) -> f n arr). map read. words

haskell/app/Main.hs

@@ -2,40 +2,10 @@
 
 module Main(main) where
 
-import Control.Monad
-import Data.Array
-import Data.Bits
-import Data.List
-import Data.List.Split
-import Data.Set
-import Debug.Trace
-import System.Environment
-import System.IO
-import System.IO.Unsafe
+--import HelloWorld(mainHW)
+import ListReplication(mainLR)
 
 
-helloWorlds :: (Num n, Eq n) => n -> IO() -> IO()
-helloWorlds 0 _ = return ()
-helloWorlds n action = do
-    action
-    helloWorlds (n - 1) action
-
-helloWorlds2 :: Int -> IO() -> IO()
-helloWorlds2 n action = do
-    forM_ [1..n] $ \_ -> action
-
-helloWorlds3 :: Int -> IO() -> IO()
-helloWorlds3 n action = mapM_ (const action) [1..n]
-
 main :: IO()
 main = do
-    n <- readLn :: IO Int
-    helloWorlds n $ putStrLn "Hello World"
-    ---also
-    sequence_ $ replicate n $ putStrLn "Hello World"
-    -- also
-    replicateM_ n (putStrLn "Hello World")
-    -- also
-    helloWorlds2 n $ putStrLn "Hello World"
-    -- also
-    helloWorlds3 n $ putStrLn "Hello World"
+    mainLR

haskell/voidhask.cabal

@@ -47,6 +47,8 @@ executable voidhask-exe
   other-modules:
       Fun
       Functions
+      HelloWorld
+      ListReplication
       Main01
       MtlEx
       Paths_voidhask