Project Euler solutions in The

problem 1.the.hs

problem-1: max = {
    (0 ... max)
        (filter: { n | 3 divides?: n || 5 divides?: n })
        sum
} do

(problem-1: 1000) print

problem 2.the.hs

problem-2: max = {
    sum = 0

    n0 = 0
    n1 = 1

    while: { n1 < max }
        do: {
            {-sum = sum + (if: n1 even? then: { n1 } else: { 0 })-}
            -- OR:
            (b: Block) in-scope = { b scope do: b }
            when: n1 even?
                do: { sum = sum + n1 } in-scope

            n1 = n1 + n0
            n0 = n1 - n0
        }

    sum
} do

(problem-2: 4000000) print