Update euler examples to compile with current batteries

ocaml-batteries-team · May 29, 2010 · a87e31d · a87e31d
1 parent 27c2b5a
commit a87e31d
Show file tree

Hide file tree

Showing 13 changed files with 27 additions and 186 deletions.
diff --git a/examples/euler/Makefile b/examples/euler/Makefile
@@ -0,0 +1,15 @@
+.PHONY: all clean
+
+SOURCES = $(wildcard euler*.ml)
+TARGETS = $(SOURCES:.ml=.byte)
+
+all: $(TARGETS)
+
+clean: 
+	rm *.byte *.native *.cmi *.cmo
+
+%.byte: mathlib.ml %.ml 
+	ocamlfind ocamlc -thread -package threads,batteries -linkpkg $^ -o $@ 
+
+%.native: mathlib.ml %.ml 
+	ocamlfind ocamlc -thread -package threads,batteries -linkpkg $^ -o $@ 
diff --git a/examples/euler/_tags b/examples/euler/_tags
diff --git a/examples/euler/euler010.ml b/examples/euler/euler010.ml
@@ -1,3 +1,4 @@
+open Batteries
 open Enum
 
 let max_val = 2_000_000

diff --git a/examples/euler/euler012.ml b/examples/euler/euler012.ml
@@ -1,3 +1,4 @@
+open Batteries
 let num_div x = 
   let count = ref 1 in (* already counted 1 *)
   let max_test = x |> float |> sqrt |> Float.to_int in

diff --git a/examples/euler/euler013.ml b/examples/euler/euler013.ml
@@ -1,3 +1,4 @@
+open Batteries
 let data = [
 37107287533902;
 46376937677490;

diff --git a/examples/euler/euler018.ml b/examples/euler/euler018.ml
@@ -1,3 +1,4 @@
+open Batteries
 let tri =
   [|
     [| 75 |];

diff --git a/examples/euler/euler019.ml b/examples/euler/euler019.ml
@@ -1,3 +1,5 @@
+open Batteries
+
 let daysmonth = [ 31; 28; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31 ]
 let daysleap = [ 31; 29; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31 ]
 

diff --git a/examples/euler/euler021.ml b/examples/euler/euler021.ml
@@ -1,3 +1,4 @@
+open Batteries
 let d n = Mathlib.sum_factors n
 
 module ISet = Set.Make(Int)

diff --git a/examples/euler/euler023.ml b/examples/euler/euler023.ml
@@ -1,3 +1,4 @@
+open Batteries 
 open List
 
 let is_abundant n = n < Mathlib.sum_factors n

diff --git a/examples/euler/euler024.ml b/examples/euler/euler024.ml
@@ -1,3 +1,4 @@
+open Batteries
 open Mathlib
 
 let pos = 1_000_000

diff --git a/examples/euler/euler067.ml b/examples/euler/euler067.ml
@@ -1,3 +1,4 @@
+open Batteries
 let tri =
 [|
 [| 59|];

diff --git a/examples/euler/mathlib.ml b/examples/euler/mathlib.ml
@@ -1,3 +1,5 @@
+open Batteries
+
 let rec factorial = function 1 -> 1 | n -> n * factorial (n-1)
 
 let factors i f x =

diff --git a/examples/euler/myocamlbuild.ml b/examples/euler/myocamlbuild.ml