|
1 2 3 4 5 6 7 8 | {-# OPTIONS -fglasgow-exts #-} f :: Maybe (forall a. [a] -> [a]) -> Maybe ([Int], [Char]) f (Just g) = Just (g [3], g "hello") f Nothing = Nothing main = print $ f (Just reverse) |
ey0jIE9QVElPTlMgLWZnbGFzZ293LWV4dHMgICMtfQoKCmYgOjogTWF5YmUgKGZvcmFsbCBhLiBbYV0gLT4gW2FdKSAtPiBNYXliZSAoW0ludF0sIFtDaGFyXSkKZiAoSnVzdCBnKSA9IEp1c3QgKGcgWzNdLCBnICJoZWxsbyIpCmYgTm90aGluZyAgPSBOb3RoaW5nCgptYWluICAgPSBwcmludCAkIGYgKEp1c3QgcmV2ZXJzZSk=
-
upload with new input
-
result: Success time: 0.02s memory: 3544 kB returned value: 0
Just ([3],"olleh")