Merge pull request #306 from marionebl/add-implementation-stubs

add implementation stubs (fixes #285, fixes #298)

exercises/acronym/acronym.ml

@@ -0,0 +1 @@
+let acronym _ = failwith "'acronym' is missing"

exercises/all-your-base/all_your_base.ml

@@ -0,0 +1,4 @@
+type base = int
+
+let convert_bases ~from ~digits ~target =
+    failwith "'convert_bases' is missing"

exercises/allergies/allergies.ml

@@ -0,0 +1,14 @@
+type allergen = Eggs
+              | Peanuts
+              | Shellfish
+              | Strawberries
+              | Tomatoes
+              | Chocolate
+              | Pollen
+              | Cats
+
+let allergic_to _ _ =
+    failwith "'allergic_to' is missing"
+
+let allergies _ =
+    failwith "'allergies' is missing"

exercises/anagram/anagram.ml

@@ -0,0 +1,2 @@
+let anagrams _ _ =
+    failwith "'anagrams' is missing"

exercises/anagram/dune

@@ -6,3 +6,7 @@
   (name    runtest)
   (deps    (:x test.exe))
   (action  (run %{x})))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/atbash-cipher/atbash_cipher.ml

@@ -0,0 +1,5 @@
+let encode ?block_size _ =
+    failwith "'encode' is missing"
+
+let decode _ =
+    failwith "'decode' is missing"

exercises/atbash-cipher/dune

@@ -6,3 +6,7 @@
   (name    runtest)
   (deps    (:x test.exe))
   (action  (run %{x})))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/beer-song/beer_song.ml

@@ -0,0 +1,5 @@
+let verse _ = 
+    failwith "'verse' is missing"
+
+let lyrics ~from ~until =
+    failwith "'lyrics' is missing"

exercises/binary-search/binary_search.ml

@@ -0,0 +1,2 @@
+let find _ _ =
+    failwith "'find' is missing"

exercises/bob/bob.ml

@@ -0,0 +1,2 @@
+let response_for _ =
+    failwith "'response_for' is missing"

exercises/bowling/bowling.ml

@@ -0,0 +1,10 @@
+type t
+
+let new_game =
+    failwith "'new_game' is missing"
+
+let roll _ _ =
+    failwith "'roll' is missing"
+
+let score _ =
+    failwith "'score' is missing"

exercises/change/change.ml

@@ -0,0 +1,2 @@
+let make_change ~target ~coins =
+    failwith "'make_change' is missing"

exercises/change/dune

@@ -6,3 +6,7 @@
   (name    runtest)
   (deps    (:x test.exe))
   (action  (run %{x})))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/connect/connect.ml

@@ -0,0 +1,4 @@
+type player = O | X
+
+let connect _ =
+    failwith "'connect' is missing"

exercises/custom-set/custom_set.ml

@@ -0,0 +1,51 @@
+module type ELEMENT = sig
+    type t
+    val compare : t -> t -> int
+end
+
+module Make(El: ELEMENT) = struct
+    type t = El.t list
+    type el = El.t
+
+    let el_equal _ _ = 
+      failwith "'el_equal' is missing"
+
+    let is_empty _ =
+      failwith "'is_empty' is missing" 
+
+    let is_member _ _ = 
+      failwith "'is_member' is missing" 
+
+    let is_subset _ _ =
+      failwith "'is_subset' is missing" 
+
+    let is_disjoint _ _ = 
+      failwith "'is_disjoint' is missing" 
+
+    let equal _ _ =
+      failwith "'equal' is missing" 
+
+    let of_list _ =
+      failwith "'of_list' is missing" 
+
+    let add _ _ =
+      failwith "'add' is missing" 
+
+    type status = [
+        | `OnlyA
+        | `OnlyB
+        | `Both
+    ]
+
+    let diff_filter _ _ _ =
+      failwith "'diff_filter' is missing" 
+
+    let difference _ _ = 
+      failwith "'difference' is missing" 
+
+    let intersect _ _ = 
+      failwith "'intersect' is missing" 
+
+    let union _ _ = 
+      failwith "'union' is missing" 
+end

exercises/difference-of-squares/difference_of_squares.ml

@@ -0,0 +1,8 @@
+let square_of_sum _ = 
+    failwith "'square_of_sum' is missing"
+
+let sum_of_squares _ =
+    failwith "'sum_of_squares' is missing"
+
+let difference_of_squares _ =
+    failwith "'difference_of_squares' is missing"

exercises/dominoes/dominoes.ml

@@ -0,0 +1,4 @@
+type dominoe = (int * int)
+
+let chain _ =
+    failwith "'chain' is missing"

exercises/etl/etl.ml

@@ -0,0 +1,2 @@
+let transform _ =
+    failwith "'transform' is missing"

exercises/forth/forth.ml

@@ -0,0 +1,2 @@
+let evaluate _ =
+    failwith "'evaluate' is missing"

exercises/grade-school/grade_school.ml

@@ -0,0 +1,15 @@
+open Base
+
+module Int_map = Map.M(Int)
+type school = string list Int_map.t
+
+let empty_school = Map.empty (module Int)
+
+let add _ _ _ = 
+    failwith "'add' is missing"
+
+let grade _ _ =
+    failwith "'grade' is missing"
+
+let sorted _ = 
+    failwith "'sorted' is missing"

exercises/hamming/hamming.ml

@@ -0,0 +1,4 @@
+type nucleotide = A | C | G | T
+
+let hamming_distance _ _ =
+  failwith "'hamming_distance' is missing"

exercises/hangman/hangman.ml

@@ -0,0 +1,18 @@
+type t
+
+type progress =
+    | Win
+    | Lose
+    | Busy of int
+
+let create _ =
+    failwith "'create' is missing"
+
+let feed _ _ =
+    failwith "'feed' is missing"
+
+let masked_word _ =
+    failwith "'masked_word' is missing"
+
+let progress _ =
+    failwith "'progress' is missing"

exercises/hexadecimal/hexadecimal.ml

@@ -0,0 +1,2 @@
+let to_int _ = 
+    failwith "'to_int' is missing"

exercises/leap/leap.ml

@@ -0,0 +1,2 @@
+let leap_year _ = 
+    failwith "'leap_year' is missing"

exercises/list-ops/dune

@@ -6,3 +6,7 @@
   (name    runtest)
   (deps    (:x test.exe))
   (action  (run %{x})))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/list-ops/list_ops.ml

@@ -0,0 +1,20 @@
+let length _ = 
+  failwith "'length' is missing"
+
+let reverse _ =
+  failwith "'reverse' is missing"
+
+let map ~f _ =
+  failwith "'map' is missing"
+
+let filter ~f _ =
+  failwith "'filter' is missing"
+
+let fold ~init ~f _ =
+  failwith "'fold' is missing"
+
+let append _ _ =
+  failwith "'append' is missing"
+
+let concat _ =
+  failwith "'concat' is missing"

exercises/luhn/luhn.ml

@@ -0,0 +1,2 @@
+let valid _ =
+    failwith "'valid' is missing"

exercises/matching-brackets/matching_brackets.ml

@@ -0,0 +1,2 @@
+let are_balanced _ =
+    failwith "'are_balanced' is missing"

exercises/meetup/dune

@@ -6,3 +6,7 @@
   (name    runtest)
   (deps    (:x test.exe))
   (action  (run %{x})))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/minesweeper/minesweeper.ml

@@ -0,0 +1,2 @@
+let annotate _ = 
+    failwith "'annotate' is missing"

exercises/palindrome-products/dune

@@ -13,4 +13,4 @@
 
 (env
   (dev
-  (flags (:standard -warn-error -A))))
+    (flags (:standard -warn-error -A))))

exercises/palindrome-products/palindrome_products.ml

@@ -0,0 +1,16 @@
+type palindrome_products = {
+  value : int option;
+  factors : (int * int) list;
+}
+
+let smallest ~min ~max =
+  failwith "'smallest' is missing"
+
+let largest ~min ~max =
+  failwith "'largest' is missing"
+
+let show_palindrome_products _ =
+  failwith "'show_palindrome_products' is missing"
+
+let equal_palindrome_products _ _ =
+  failwith "'equal_palindrome_products' is missing"

exercises/pangram/pangram.ml

@@ -0,0 +1,2 @@
+let is_pangram _ =
+    failwith "'is_pangram' is missing"

exercises/phone-number/phone_number.ml

@@ -0,0 +1,2 @@
+let number _ =
+    failwith "'number' is missing"

exercises/prime-factors/prime_factors.ml

@@ -0,0 +1,2 @@
+let factors_of _ = 
+    failwith "'factors_of' is missing"

exercises/raindrops/raindrops.ml

@@ -0,0 +1,2 @@
+let raindrop _ =
+    failwith "'raindrop' is missing"

exercises/react/dune

@@ -6,3 +6,7 @@
   (name    runtest)
   (deps    (:x test.exe))
   (action  (run %{x})))
+
+(env
+  (dev
+    (flags (:standard -warn-error -A))))

exercises/react/react.ml

@@ -0,0 +1,23 @@
+type 'a cell
+type callback_id
+
+let create_input_cell ~value ~eq =
+    failwith "'create_input_cell' is missing"
+
+let value_of _ =
+    failwith "'value_of' is missing"
+
+let set_value _ =
+    failwith "'set_value' is missing"
+
+let create_compute_cell_1 _ ~f ~eq =
+    failwith "'create_compute_cell_1' is missing"
+
+let create_compute_cell_2 _ _ ~f ~eq =
+    failwith "'create_compute_cell_2' is missing"
+
+let add_callback _ ~k =
+    failwith "'add_callback' is missing"
+
+let remove_callback _ _ =
+    failwith "'remove_callback' is missing"

exercises/rectangles/rectangles.ml

@@ -0,0 +1,2 @@
+let count_rectangles _ =
+    failwith "'count_rectangles' is missing"

exercises/rna-transcription/rna_transcription.ml

@@ -0,0 +1,5 @@
+type dna = [ `A | `C | `G | `T ]
+type rna = [ `A | `C | `G | `U ]
+
+let to_rna _ =
+    failwith "'to_rna' is missing"

exercises/robot-name/robot_name.ml

@@ -0,0 +1,10 @@
+type robot
+
+let new_robot =
+    failwith "'new_robot' is missing"
+
+let name = 
+    failwith "'name' is missing"
+
+let reset =
+    failwith "'reset' is missing"

exercises/roman-numerals/roman_numerals.ml

@@ -0,0 +1,2 @@
+let to_roman _ =
+    failwith "'to_roman' is missing"

exercises/run-length-encoding/run_length_encoding.ml

@@ -0,0 +1,5 @@
+let encode _ =
+    failwith "'encode' is missing"
+
+let decode _ =
+    failwith "'decode' is missing"

exercises/say/say.ml

@@ -0,0 +1,2 @@
+let in_english _ =
+      failwith "'in_english' is missing"

exercises/space-age/space_age.ml

@@ -0,0 +1,5 @@
+type planet = Mercury | Venus | Earth | Mars
+            | Jupiter | Saturn | Neptune | Uranus
+
+let age_on _ _ =
+    failwith "'age_on' is missing"

exercises/triangle/triangle.ml

@@ -0,0 +1,8 @@
+let is_equilateral _ _ _ =
+    failwith "'is_equilateral' is missing"
+
+let is_isosceles _ _ _ =
+    failwith "'is_isosceles' is missing"
+
+let is_scalene _ _ _ =
+    failwith "'is_scalene' is missing"

exercises/word-count/word_count.ml

@@ -0,0 +1,2 @@
+let word_count _ =
+    failwith "'word_count' is missing"