{"action":"closed","issue":{"url":"https://api.github.com/repos/software-engineering-amsterdam/ST2018_WG_3/issues/2","repository_url":"https://api.github.com/repos/software-engineering-amsterdam/ST2018_WG_3","labels_url":"https://api.github.com/repos/software-engineering-amsterdam/ST2018_WG_3/issues/2/labels{/name}","comments_url":"https://api.github.com/repos/software-engineering-amsterdam/ST2018_WG_3/issues/2/comments","events_url":"https://api.github.com/repos/software-engineering-amsterdam/ST2018_WG_3/issues/2/events","html_url":"https://github.com/software-engineering-amsterdam/ST2018_WG_3/issues/2","id":365915741,"node_id":"MDU6SXNzdWUzNjU5MTU3NDE=","number":2,"title":"Lab3","user":{"login":"BertLisser","id":1997071,"node_id":"MDQ6VXNlcjE5OTcwNzE=","avatar_url":"https://avatars3.githubusercontent.com/u/1997071?v=4","gravatar_id":"","url":"https://api.github.com/users/BertLisser","html_url":"https://github.com/BertLisser","followers_url":"https://api.github.com/users/BertLisser/followers","following_url":"https://api.github.com/users/BertLisser/following{/other_user}","gists_url":"https://api.github.com/users/BertLisser/gists{/gist_id}","starred_url":"https://api.github.com/users/BertLisser/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/BertLisser/subscriptions","organizations_url":"https://api.github.com/users/BertLisser/orgs","repos_url":"https://api.github.com/users/BertLisser/repos","events_url":"https://api.github.com/users/BertLisser/events{/privacy}","received_events_url":"https://api.github.com/users/BertLisser/received_events","type":"User","site_admin":false},"labels":[],"state":"closed","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":0,"created_at":"2018-10-02T14:08:49Z","updated_at":"2018-10-02T14:16:30Z","closed_at":"2018-10-02T14:16:30Z","author_association":"NONE","body":"```\r\ngenForm :: IO Form\r\ngenForm = do\r\n    c <- pick 8  -- A number to determine the type of node.\r\n    x <- pick 5  -- An x for when the node is a proposition.\r\n    f1 <- if c > 3 then genForm else return (Prop 0) -- A child node (only generated if needed)\r\n    f2 <- if c > 4 then genForm else return (Prop 0) -- Another child node (only generated if needed)\r\n    return $ case c of\r\n                 c | c <= 3 -> Prop x\r\n                 4          -> Neg f1\r\n                 5          -> Cnj [f1, f2]\r\n                 6          -> Dsj [f1, f2]\r\n                 7          -> Impl f1 f2\r\n                 8          -> Equiv f1 f2\r\n```\r\nTo remarks:\r\n1 Too restricted. `Cnj xs` and `Dsj  xs` where `xs` are lists must be also possible.\r\n2 How the garantee that the generated form is not too deep."}}
{"actor":{"display_login":"BertLisser"}}