Skip to content

Instantly share code, notes, and snippets.

@L7R7

L7R7/Append.hs

Last active November 13, 2020 11:18
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save L7R7/dbba84814fdc29e5e2d46196df8289c7 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save L7R7/dbba84814fdc29e5e2d46196df8289c7 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. L7R7 revised this gist Nov 12, 2020. 1 changed file with 6 additions and 1 deletion.
    7 changes: 6 additions & 1 deletion Append.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -1,4 +1,9 @@
    instance Append (List a) where
    append Empty as = as
    append as Empty = as
    append (Cons a as) bs = Cons a (append as bs)
    append (Cons a as) bs = Cons a (append as bs)

    instance (Append a) => Append (Maybe a) where
    append (Just a1) (Just a2) = Just (append a1 a2)
    append ma Nothing = ma
    append Nothing ma = ma
  2. L7R7 created this gist Nov 12, 2020.
    4 changes: 4 additions & 0 deletions Append.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,4 @@
    instance Append (List a) where
    append Empty as = as
    append as Empty = as
    append (Cons a as) bs = Cons a (append as bs)