langs a-z

Task/Constrained-genericity/OCaml/constrained-genericity-1.ocaml

@@ -0,0 +1,4 @@
+module type Eatable = sig
+  type t
+  val eat : t -> unit
+end

Task/Constrained-genericity/OCaml/constrained-genericity-2.ocaml

@@ -0,0 +1,5 @@
+module MakeFoodBox(A : Eatable) = struct
+  type elt = A.t
+  type t = F of elt list
+  let make_box_from_list xs = F xs
+end

Task/Constrained-genericity/OCaml/constrained-genericity-3.ocaml

@@ -0,0 +1,6 @@
+type banana = Foo (* a dummy type *)
+
+module Banana : Eatable with type t = banana = struct
+  type t = banana
+  let eat _ = print_endline "I'm eating a banana"
+end

Task/Constrained-genericity/OCaml/constrained-genericity-4.ocaml

@@ -0,0 +1,4 @@
+module EatFloat : Eatable with type t = float = struct
+  type t = float
+  let eat f = Printf.printf "I'm eating %f\n%!" f
+end

Task/Constrained-genericity/OCaml/constrained-genericity-5.ocaml

@@ -0,0 +1,5 @@
+module BananaBox = MakeFoodBox (Banana)
+module FloatBox = MakeFoodBox (EatFloat)
+
+let my_box = BananaBox.make_box_from_list [Foo]
+let your_box = FloatBox.make_box_from_list [2.3; 4.5]

Task/Constrained-genericity/OxygenBasic/constrained-genericity.oxy

@@ -0,0 +1,85 @@
+macro Gluttony(vartype, capacity, foodlist)
+'==========================================
+
+typedef vartype physical
+
+enum food foodlist
+
+type ActualFood
+  sys      name
+  physical size
+  physical quantity
+end type
+
+Class foodbox
+'============
+has ActualFood Item[capacity]
+sys max
+
+method put(sys f, physical s,q)
+  max++
+  Item[max]<=f,s,q
+end method
+
+method GetNext(ActualFood *Stuff)
+  if max then
+    copy @stuff,@Item[max], sizeof Item
+    max--
+  end if
+end method
+
+end class
+
+Class Gourmand
+'=============
+physical WeightGain, SleepTime
+
+method eats(ActualFood *stuff)
+  WeightGain+=stuff.size*stuff.quantity*0.75
+  stuff.size=0
+  stuff.quantity=0
+end method
+
+end class
+
+end macro
+
+
+'IMPLEMENTATION
+'==============
+
+
+Gluttony (
+double,100,{
+oyster,trout,bloater,
+chocolate,truffles,
+cheesecake,cream,pudding,pie
+})
+
+% small  1
+% medium 2
+% large  3
+% huge   7
+
+% none    0
+% single  1
+% few     3
+% several 7
+% many    12
+
+'INSTANCE
+'========
+
+FoodBox  Hamper
+Gourmand MrG
+
+'TEST
+'====
+
+Hamper.put food.pudding,large,several
+Hamper.put food.pie,huge,few
+ActualFood Course
+Hamper.GetNext Course
+MrG.eats Course
+
+print MrG.WeightGain 'result 15.75

Task/Constrained-genericity/Perl-6/constrained-genericity-1.pl6

@@ -0,0 +1,13 @@
+subset Eatable of Any where { .^can('eat') };
+
+class Cake { method eat() {...} }
+
+role FoodBox[Eatable ::T] {
+    has T %.foodbox;
+}
+
+class Yummy does FoodBox[Cake] { }      # composes correctly
+# class Yucky does FoodBox[Int] { }     # fails to compose
+
+my Yummy $foodbox .= new;
+say $foodbox.perl;

Task/Constrained-genericity/Perl-6/constrained-genericity-2.pl6

@@ -0,0 +1 @@
+Yummy.new(foodbox => {})