Did q1

jbrennan · Nov 17, 2011 · c434e4e · c434e4e
1 parent eefcfc9
commit c434e4e
Show file tree

Hide file tree

Showing 5 changed files with 15 additions and 0 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/a2.zip b/a2.zip
diff --git a/a2/.DS_Store b/a2/.DS_Store
diff --git a/a3/q1.rkt b/a3/q1.rkt
@@ -0,0 +1,13 @@
+#lang racket
+
+(define (position at lis)
+  (define (p-iter lisn count)
+    (cond ((eq? lisn '()) 0)
+          ((eq? (car lisn) at) (+ 1 count))
+          (else (p-iter (cdr lisn) (+ 1 count)))))
+
+  (p-iter lis 0))
+
+(position 1 '(2 3 1 4))
+(position 'a '(b b c a b a))
+(position 'a '(b c))
diff --git a/a3/q1.rkt~ b/a3/q1.rkt~
@@ -0,0 +1,2 @@
+#lang racket
+