Add a Haskell implementation

haskell/.gitignore

@@ -0,0 +1 @@
+.stack-work

haskell/Main.hs

@@ -0,0 +1,14 @@
+import Control.Concurrent
+import Text.Read (readMaybe)
+import System.Environment
+import Control.Monad
+import Data.Maybe
+import Safe
+import Control.Concurrent.Async
+
+main :: IO ()
+main = do
+  args <- getArgs
+  let numRoutines = fromMaybe 100_000 (args `atMay` 0 >>= readMaybe)
+  forConcurrently_ [1 .. numRoutines] \_ -> threadDelay 10_000_000
+  print "All finished."

haskell/coroutines.cabal

@@ -0,0 +1,28 @@
+cabal-version: 1.12
+
+name: coroutines
+version: 0.0.0
+build-type: Simple
+
+executable coroutines
+  main-is: Main.hs
+  default-extensions:
+    OverloadedStrings
+    LambdaCase
+    QuasiQuotes
+    MultiWayIf
+    TemplateHaskell
+    DataKinds
+    ImplicitParams
+    PartialTypeSignatures
+    DeriveAnyClass
+    OverloadedRecordDot
+    ForeignFunctionInterface
+    BlockArguments
+    DuplicateRecordFields
+    ImportQualifiedPost
+    DeriveGeneric
+  ghc-options: -threaded -rtsopts -with-rtsopts=-N
+  build-depends:
+    base, async, safe
+  default-language: GHC2021

haskell/dev.sh

@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+
+set -euo pipefail
+
+cd "$(dirname "${BASH_SOURCE[0]}")"
+
+ghcid \
+  --command="stack ghci --ghci-options='+RTS -N'" \
+  --test=main \
+  --restart coroutines.cabal \
+  --restart stack.yaml \
+  --restart stack.yaml.lock

haskell/run.sh

@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+set -euo pipefail
+
+exec stack run "$@"

haskell/stack.yaml

@@ -0,0 +1 @@
+resolver: nightly-2023-04-18

haskell/stack.yaml.lock

@@ -0,0 +1,12 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages: []
+snapshots:
+- completed:
+    sha256: 54e2d92fba7e5d56a9e1c1f173be9258ffcbbf8bd7087c1848c2feafe31881e6
+    size: 608629
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/nightly/2023/4/18.yaml
+  original: nightly-2023-04-18