Facebook
From Sole Hamster, 8 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 511
  1. leftA :: Auto a q -> Auto a (Either q r)
  2. leftA (A s ini ac t) = (A st init acc tr) where
  3.         st = map (Left) s
  4.         init = map (Left) ini
  5.         acc = either ac (\x->False)
  6.         tr (Left s) w = map (Left) (t s w)
  7.         tr (Right s) w = []

Replies to Untitled rss

Title Name Language When
Re: Untitled Melodic Hamerkop text 5 Years ago.
Re: Untitled Innocent Zebra haskell 8 Years ago.