buckwheat/enso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

enso.nim: Next time don't get confused

Browse Source
This commit is contained in:
buckwheat
2025-12-26 17:36:30 -08:00
parent f3bdece63b
commit 996c115a1c
2 changed files with 23 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/enso.nim
View File

@ -10,7 +10,7 @@ func flatmap*[T, U](io: IO[T], fn: T -> IO[U]): IO[U]
func lift*(fn: proc(): void): IO[void]
func lift*[T](fn: proc(): T): IO[T]
func join*[T](io: IO[IO[T]]): IO[T]
func map*[T, U](io: IO[seq[T]], fn: T -> U): IO[seq[U]]
func map*[T, U](io: IO[T], fn: T -> U): IO[U]
func readstr*(stream: FileDesc): IO[string]
func run*[T](io: IO[T]): T
func strput*(str: string): IO[void]
@ -18,7 +18,7 @@ func to_IO*[T](val: T): IO[T]
# Definitions
func flatmap*[T, U](io: IO[T], fn: T -> IO[U]): IO[U] = join(io.map(fn))
func flatmap*[T, U](io: IO[T], fn: T -> IO[U]): IO[U] = join(map(io, fn))
func lift*(fn: proc(): void): IO[void] =
proc(): void = fn()
@ -26,21 +26,10 @@ func lift*(fn: proc(): void): IO[void] =
func lift*[T](fn: proc(): T): IO[T] =
proc(): T = fn()
func join*[T](io: IO[IO[T]]): IO[T] = io.map(run)
func join*[T](io: IO[IO[T]]): IO[T] = map(io, run)
func map*[T, U](io: IO[seq[T]], fn: T -> U): IO[seq[U]] =
proc(): seq[U] =
let list: seq[T] = io()
if list.len == 0:
@[]
else:
let
head: T = list[0]
tail: seq[T] = list[1..^1]
new: IO[seq[T]] = to_IO tail
@[fn(head)] & run new.map(fn)
func map*[T, U](io: IO[T], fn: T -> U): IO[U] =
proc(): U = fn(run(io))
func readstr*(stream: FileDesc): IO[string] =
case stream: