Newest at the top
2025-04-16 15:46:15 +0200 | <ski> | `MkState' is value-level (a data constructor), it's not type-level. so it makes no sense to mention it in the type signature |
2025-04-16 15:45:36 +0200 | <ski> | this makes no sense |
2025-04-16 15:45:32 +0200 | <ski> | -- (>>=) :: Monad m => MkState (s -> (a, s)) -> (a -> MkState (s -> (b, s))) -> MkState (s -> (b, s)) |
2025-04-16 15:45:29 +0200 | <ski> | ah, you updated it |
2025-04-16 15:44:49 +0200 | <ski> | the definition of `(>>=)' isn't quite correct, but i guess you knew that |
2025-04-16 15:42:07 +0200 | euleritian | (~euleritia@dynamic-176-002-178-231.176.2.pool.telefonica.de) |
2025-04-16 15:41:56 +0200 | <ski> | `fmap :: (a -> b) -> (s -> (a,s)) -> (s -> (b,s))' also, strictly speaking, isn't correct. but it's the type signature you'd get, if you were able to use `type State s a = (s -> (a,s))' |
2025-04-16 15:41:55 +0200 | euleritian | (~euleritia@ip5f5ad695.dynamic.kabel-deutschland.de) (Ping timeout: 276 seconds) |
2025-04-16 15:41:21 +0200 | <ski> | `State (s -> (a, s))' makes no sense, here |
2025-04-16 15:40:58 +0200 | merijn | (~merijn@host-vr.cgnat-g.v4.dfn.nl) (Ping timeout: 252 seconds) |
2025-04-16 15:40:35 +0200 | <bwe> | ski: puh, I don't get why the type signatures should be (s -> (a, s)) for Functor, wh? |
2025-04-16 15:39:40 +0200 | <ski> | MkState f <*> MkState g = ..f..g.. |
2025-04-16 15:39:31 +0200 | <ski> | also could be written as |
2025-04-16 15:39:24 +0200 | <ski> | (<*>) (MkState f) (MkState g) = ..f..g.. |
2025-04-16 15:38:35 +0200 | <ski> | to the first line, you can uncomment one of the type signatures, for each method of each instance |
2025-04-16 15:38:17 +0200 | <ski> | {-# LANGUAGE InstanceSigs #-} |
2025-04-16 15:38:08 +0200 | <ski> | if you add |
2025-04-16 15:37:47 +0200 | ystael | (~ystael@user/ystael) ystael |
2025-04-16 15:36:36 +0200 | <bwe> | [exa]: updated. includes Monad definition now, however I don't use the s1 yet, I should, right? |
2025-04-16 15:35:55 +0200 | <ski> | -- <*> :: (s0 -> (a -> b,s1)) -> (s0 -> (a,s1)) -> (s0 -> (b,s1)) -- well, actually not quite this, either. can you see why ? |
2025-04-16 15:35:11 +0200 | <ski> | should be |
2025-04-16 15:35:08 +0200 | <ski> | -- <*> :: MkState (s0 -> (a -> b, s1)) -> MkState (s0 -> (a, s1)) -> MkState (s0 -> (b, s1)) |
2025-04-16 15:35:06 +0200 | <ski> | similarly |
2025-04-16 15:35:00 +0200 | jacopovalanzano | (~jacopoval@cpc151911-cove17-2-0-cust105.3-1.cable.virginm.net) |
2025-04-16 15:34:28 +0200 | <ski> | -- fmap :: (a -> b) -> (s -> (a,s)) -> (s -> (b,s)) |
2025-04-16 15:34:18 +0200 | <ski> | should be |
2025-04-16 15:34:17 +0200 | <ski> | -- fmap :: (a -> b) -> State (s -> (a, s)) -> State (s -> (b, s)) |
2025-04-16 15:33:57 +0200 | merijn | (~merijn@host-vr.cgnat-g.v4.dfn.nl) merijn |
2025-04-16 15:32:11 +0200 | <[exa]> | bwe: for the monad instance the only thing you might need to do is to unpack the `f` from State, and repack the result |
2025-04-16 15:31:51 +0200 | <[exa]> | bwe: looks all OK to me |
2025-04-16 15:28:38 +0200 | L29Ah | (~L29Ah@wikipedia/L29Ah) L29Ah |
2025-04-16 15:27:36 +0200 | <bwe> | Functor and Applicative: https://github.com/benjaminweb/state-monad/blob/main/src/MyLib.hs |
2025-04-16 15:27:15 +0200 | acidjnk | (~acidjnk@p200300d6e71c4f5865559714f8604ffa.dip0.t-ipconnect.de) (Ping timeout: 260 seconds) |
2025-04-16 15:27:11 +0200 | L29Ah | (~L29Ah@wikipedia/L29Ah) () |
2025-04-16 15:23:51 +0200 | haritz | (~hrtz@user/haritz) haritz |
2025-04-16 15:23:51 +0200 | haritz | (~hrtz@2a01:4b00:bc2e:7000:d5af:a266:ca31:5ef8) (Changing host) |
2025-04-16 15:23:51 +0200 | haritz | (~hrtz@2a01:4b00:bc2e:7000:d5af:a266:ca31:5ef8) |
2025-04-16 15:22:35 +0200 | gorignak | (~gorignak@user/gorignak) (Quit: quit) |
2025-04-16 15:21:21 +0200 | merijn | (~merijn@host-vr.cgnat-g.v4.dfn.nl) (Ping timeout: 248 seconds) |
2025-04-16 15:20:59 +0200 | haritz | (~hrtz@user/haritz) (Read error: Connection reset by peer) |
2025-04-16 15:19:12 +0200 | Googulator82 | (~Googulato@94-21-172-228.pool.digikabel.hu) |
2025-04-16 15:18:44 +0200 | Googulator82 | (~Googulato@2a01-036d-0106-2077-315b-d519-517f-afe7.pool6.digikabel.hu) (Quit: Client closed) |
2025-04-16 15:16:17 +0200 | merijn | (~merijn@host-vr.cgnat-g.v4.dfn.nl) merijn |
2025-04-16 15:15:12 +0200 | Catty | catties |
2025-04-16 15:11:54 +0200 | merijn | (~merijn@host-vr.cgnat-g.v4.dfn.nl) (Ping timeout: 260 seconds) |
2025-04-16 15:10:06 +0200 | <ski> | .. or `newtype State s a = MkState {runState :: s -> (a,s)}', using record syntax notation to automagically get the projection/selector |
2025-04-16 15:10:03 +0200 | weary-traveler | (~user@user/user363627) user363627 |
2025-04-16 15:09:44 +0200 | Guest38 | (~Guest38@175.143.89.234) () |
2025-04-16 15:08:59 +0200 | Guest38 | (~Guest38@175.143.89.234) |
2025-04-16 15:08:45 +0200 | ski | would use `newtype State s a = MkState (s -> (a,s))', for clarity |