Haskerl for e1 and running instructions

This commit is contained in:
Dan Ballard 2011-03-31 14:52:13 -07:00
parent 3d62d1bdf7
commit 97b86f1d3f
3 changed files with 12 additions and 0 deletions

6
e1.hs Normal file
View File

@ -0,0 +1,6 @@
divisors_3_5 [] acc = acc
divisors_3_5 (x:xs) acc
| rem x 3 == 0 || rem x 5 == 0 = divisors_3_5 xs (x:acc)
| otherwise = divisors_3_5 xs acc
e1 = sum (divisors_3_5 [1 .. 999] [])

3
erlang.txt Normal file
View File

@ -0,0 +1,3 @@
erl
c(filename)
module:function

3
haskell.txt Normal file
View File

@ -0,0 +1,3 @@
hugs
:load file
fn