Skip to content

Instantly share code, notes, and snippets.

@christiaanb

christiaanb/gist:5a51b61297e2646c0b87

Created July 3, 2014 13:29
Show Gist options
  • Save christiaanb/5a51b61297e2646c0b87 to your computer and use it in GitHub Desktop.
Save christiaanb/5a51b61297e2646c0b87 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
This file has been truncated, but you can view the full file.
*Signal> fails
Just 2 ::
Nothing ::
take 1
(Stream instance of Prelude.Functor.Functor, method map snd
(zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
(zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
0]),
Just 2) ::
Delay (zipWith apply
(zipWith apply
(calc ::
Delay (repeat calc))
(map fst
((((0,
0,
fZ),
[2,
0,
0,
0,
0,
0,
0,
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment