Mercurial > repo

annotate paste/paste.13236 @ 9285:8320c9c4620f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> learn Umlaut is German for "hum aloud", an important feature of the German language. It is indicated by putting two dots over the vowel of the syllable.
author HackBot
date Sat, 15 Oct 2016 00:04:47 +0000
parents e037173e0012
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
e037173e0012 Initial import.
HackBot
parents:
diff changeset
1 2011-06-06.txt:23:21:23: <oerjan> > ZipList [1,2,3]
e037173e0012 Initial import.
HackBot
parents:
diff changeset
2 2011-06-06.txt:23:24:40: <oerjan> > getZipList $ ZipList [1,2,3] >>=
e037173e0012 Initial import.
HackBot
parents:
diff changeset
3 -> ZipList [4,5,6]
e037173e0012 Initial import.
HackBot
parents:
diff changeset
4 2011-06-06.txt:23:27:16: <oerjan> > getZipList (pure (const 1) <*> pure undefined)
e037173e0012 Initial import.
HackBot
parents:
diff changeset
5 2011-09-20.txt:02:37:07: <oerjan> > let ZipList l >>_ f = ZipList . diag . scanl1 (zipWith (const id)) $ map f l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in ZipList [1,2,3] >>_ flip replicateM "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
6 2011-09-20.txt:02:37:45: <oerjan> > let ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map f l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in ZipList [1,2,3] >>+ ZipList . flip replicateM "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
7 2011-09-20.txt:02:38:20: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map f l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in ZipList [1,2,3] >>+ ZipList . flip replicateM "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
8 2011-09-20.txt:02:41:15: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map (getZipList . f) l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in ZipList [1,2,3] >>+ ZipList . flip replicateM "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
9 2011-09-20.txt:02:41:31: <oerjan> > ZipList [1,2]
e037173e0012 Initial import.
HackBot
parents:
diff changeset
10 2011-09-20.txt:02:41:45: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map (getZipList . f) l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in getZipList $ ZipList [1,2,3] >>+ ZipList . flip replicateM "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
11 2011-09-20.txt:02:42:26: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map (getZipList . f) l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in getZipList $ ZipList [1,2,3] >>+ ZipList . flip replicate "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
12 2011-09-20.txt:02:44:08: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map (getZipList . f) l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in getZipList $ ZipList [1,2,3] >>+ ZipList . flip take "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
13 2011-09-20.txt:02:44:22: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map (getZipList . f) l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in getZipList $ ZipList [3,2,1] >>+ ZipList . flip take "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
14 2011-09-20.txt:02:51:56: <oerjan> > let infixl 1 >>+; ZipList l >>+ f = ZipList . diag . scanl1 (zipWith (const id)) $ map (getZipList . f) l where diag ((x:xs):xss) = x:diag (map (drop 1) xss); diag _ = [] in getZipList $ ZipList [3,2,1] >>+ ZipList . flip take "abcd"
e037173e0012 Initial import.
HackBot
parents:
diff changeset
15 2011-11-30.txt:09:30:45: <oerjan> > getZipList . zjoin . ZipList . map ZipList $ [[1,2,3],[4,5],[6,7,8,9]]
e037173e0012 Initial import.
HackBot
parents:
diff changeset
16 2011-12-17.txt:05:03:20: <oerjan> > getZipList (zjoin (ZipList [ZipList [], ZipList [1]])) -- how does this manage to break lambdabot
e037173e0012 Initial import.
HackBot
parents:
diff changeset
17 2011-12-29.txt:05:39:13: <kallisti> `pastelogs oerjan> >.*ZipList