More

def- · Jul 26, 2014 · 5fb4ddc · 5fb4ddc
1 parent 90ba48d
commit 5fb4ddc
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/filetape.nim b/filetape.nim
@@ -0,0 +1,3 @@
+var t = open("/dev/tape", fmWrite)
+t.writeln "Hi Tape!"
+t.close
diff --git a/linearcongruential.nim b/linearcongruential.nim
@@ -0,0 +1,13 @@
+proc bsdRand(seed: int): iterator: int =
+  var seed = seed
+  result = iterator: int =
+    while true:
+      seed = (1103515245 * seed + 12345) and 0x7fffffff
+      yield seed
+
+proc msvcrtRand(seed: int): iterator: int =
+  var seed = seed
+  result = iterator: int =
+    while true:
+      seed = (214013 * seed + 2531011) and 0x7fffffff
+      yield seed
diff --git a/parametricpolymorphism.nim b/parametricpolymorphism.nim
@@ -0,0 +1,3 @@
+type Tree[T] = ref object
+  value: T
+  left, right: Tree[T]