dbyrne

maxPath (x:y:xs) = maxPath (z:xs)
  where z = zipWith (+) (zipWith max x (tail x)) y
maxPath [[x]] = x

convert = map (map read . words)
prob67 = show . maxPath . reverse . convert . lines

main = readFile "triangle.txt" >>= putStrLn . prob67

dbyrne

(with-test
  (defn maximal-path [tree-file]
    (with-open [rdr (BufferedReader. (FileReader. tree-file))]
      (let [lines (reverse
		   (map
		    (fn [x]
		      (map #(Integer. %) (re-seq #"\d+" x)))
		    (line-seq rdr)))]
	(first
	 (reduce

dbyrne

fibs = Fiber.new do
  x1, x2 = 1, 2
  loop do
    Fiber.yield x1
    x1, x2 = x2, x2+x1
  end
end

sum = 0
begin