Skip to content

Instantly share code, notes, and snippets.

@akira093

akira093/Varfun.hs

Created December 7, 2012 06:15
Show Gist options
  • Save akira093/4231147 to your computer and use it in GitHub Desktop.
Save akira093/4231147 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Varfun.hs
-- 演算子Tと演算子Jの不可換性
main = print ((t a (j x)), j (t a x))
t a = (+a) --T(a)
j x = -x --J
a = 3 -- 今回T(3)
x = 1 --初期値3
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment