Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Looping-is-recursion #607

Open
wants to merge 8 commits into
base: master
Choose a base branch
from
Open

Looping-is-recursion #607

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
a5bf355
power, last-element
epicharri Jul 21, 2017
b0cd839
seq=
epicharri Jul 21, 2017
08d65e9
find-first-index
epicharri Jul 21, 2017
8e972c3
avg
epicharri Jul 21, 2017
56e60bf
parity
epicharri Jul 21, 2017
b0b78a2
fast-fibo
epicharri Jul 21, 2017
6cff0e5
cut-at-repetition
epicharri Jul 21, 2017
acf0931
looping-is-recursion complete
epicharri Jul 21, 2017
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions .gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,3 +8,5 @@ pom.xml
.lein-deps-sum
.lein-failures
.lein-plugins
/.idea
.lein-repl-history
1 change: 1 addition & 0 deletions .nrepl-port
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
42923
69 changes: 69 additions & 0 deletions looping-is-recursion-1.iml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,69 @@
<?xml version="1.0" encoding="UTF-8"?>
<module cursive.leiningen.project.LeiningenProjectsManager.displayName="looping-is-recursion:1.0.0-SNAPSHOT" cursive.leiningen.project.LeiningenProjectsManager.isLeinModule="true" type="JAVA_MODULE" version="4">
<component name="NewModuleRootManager">
<output url="file://$MODULE_DIR$/target/classes" />
<output-test url="file://$MODULE_DIR$/target/classes" />
<exclude-output />
<content url="file://$MODULE_DIR$">
<sourceFolder url="file://$MODULE_DIR$/src" isTestSource="false" />
<sourceFolder url="file://$MODULE_DIR$/resources" isTestSource="false" />
<sourceFolder url="file://$MODULE_DIR$/dev-resources" isTestSource="false" />
<sourceFolder url="file://$MODULE_DIR$/test" isTestSource="true" />
<excludeFolder url="file://$MODULE_DIR$/target" />
</content>
<orderEntry type="inheritedJdk" />
<orderEntry type="sourceFolder" forTests="false" />
<orderEntry type="library" name="Leiningen: bultitude:0.1.7" level="project" />
<orderEntry type="library" name="Leiningen: classlojure:0.6.6" level="project" />
<orderEntry type="library" name="Leiningen: clojure-complete:0.2.4" level="project" />
<orderEntry type="library" name="Leiningen: colorize:0.1.1" level="project" />
<orderEntry type="library" name="Leiningen: com.cemerick/pomegranate:0.0.13" level="project" />
<orderEntry type="library" name="Leiningen: commons-codec:1.6" level="project" />
<orderEntry type="library" name="Leiningen: commons-io:2.0.1" level="project" />
<orderEntry type="library" name="Leiningen: commons-logging:1.1.1" level="project" />
<orderEntry type="library" name="Leiningen: gui-diff:0.3.9" level="project" />
<orderEntry type="library" name="Leiningen: iloveponies.tests/looping-is-recursion:0.1.0-SNAPSHOT" level="project" />
<orderEntry type="library" name="Leiningen: joda-time:2.0" level="project" />
<orderEntry type="library" name="Leiningen: leiningen-core:2.0.0-preview10" level="project" />
<orderEntry type="library" name="Leiningen: midje-grader:0.1.0-SNAPSHOT" level="project" />
<orderEntry type="library" name="Leiningen: midje:1.5.1" level="project" />
<orderEntry type="library" name="Leiningen: ordered:1.2.0" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.httpcomponents/httpclient:4.1.2" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.httpcomponents/httpcore:4.1.2" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven.wagon/wagon-http-shared4:2.2" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven.wagon/wagon-http:2.2" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven.wagon/wagon-provider-api:2.2" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven/maven-aether-provider:3.0.4" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven/maven-model-builder:3.0.4" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven/maven-model:3.0.4" level="project" />
<orderEntry type="library" name="Leiningen: org.apache.maven/maven-repository-metadata:3.0.4" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/algo.monads:0.1.0" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/clojure:1.5.1" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/core.incubator:0.1.0" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/core.unify:0.5.2" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/data.json:0.2.3" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/math.combinatorics:0.0.1" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/tools.macro:0.1.1" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/tools.namespace:0.2.2" level="project" />
<orderEntry type="library" name="Leiningen: org.clojure/tools.nrepl:0.2.12" level="project" />
<orderEntry type="library" name="Leiningen: org.codehaus.plexus/plexus-classworlds:2.4" level="project" />
<orderEntry type="library" name="Leiningen: org.codehaus.plexus/plexus-component-annotations:1.5.5" level="project" />
<orderEntry type="library" name="Leiningen: org.codehaus.plexus/plexus-interpolation:1.14" level="project" />
<orderEntry type="library" name="Leiningen: org.codehaus.plexus/plexus-utils:2.0.7" level="project" />
<orderEntry type="library" name="Leiningen: org.jsoup/jsoup:1.6.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.aether/aether-api:1.13.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.aether/aether-connector-file:1.13.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.aether/aether-connector-wagon:1.13.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.aether/aether-impl:1.13.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.aether/aether-spi:1.13.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.aether/aether-util:1.13.1" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.sisu/sisu-guice:3.0.3:no_aop" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.sisu/sisu-inject-bean:2.2.3" level="project" />
<orderEntry type="library" name="Leiningen: org.sonatype.sisu/sisu-inject-plexus:2.2.3" level="project" />
<orderEntry type="library" name="Leiningen: robert/hooke:1.1.2" level="project" />
<orderEntry type="library" name="Leiningen: slingshot:0.10.3" level="project" />
<orderEntry type="library" name="Leiningen: swiss-arrows:0.1.0" level="project" />
<orderEntry type="library" name="Leiningen: useful:0.8.3-alpha8" level="project" />
<orderEntry type="library" name="Leiningen: utilize:0.2.3" level="project" />
</component>
</module>
11 changes: 11 additions & 0 deletions looping-is-recursion.iml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?>
<module cursive.leiningen.project.LeiningenProjectsManager.displayName="looping-is-recursion" cursive.leiningen.project.LeiningenProjectsManager.isLeinModule="true" type="JAVA_MODULE" version="4">
<component name="NewModuleRootManager" inherit-compiler-output="true">
<exclude-output />
<content url="file://$MODULE_DIR$">
<sourceFolder url="file://$MODULE_DIR$/src" isTestSource="false" />
</content>
<orderEntry type="inheritedJdk" />
<orderEntry type="sourceFolder" forTests="false" />
</component>
</module>
81 changes: 73 additions & 8 deletions src/looping_is_recursion.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,26 +1,91 @@
(ns looping-is-recursion)

(defn power [base exp]
":(")
(cond
(zero? base)
0
(= exp 0)
1
:else
(let [helper (fn [acc n]
(if (= n 1)
acc
(recur (* acc base) (dec n))))]
(helper base exp))))

(defn last-element [a-seq]
":(")
(let [helper (fn [acc the-seq]
(if (empty? the-seq)
acc
(recur (first the-seq) (rest the-seq))))]
(helper (first a-seq) (rest a-seq))))

(defn seq= [seq1 seq2]
":(")
(let [helper (fn [acc new-seq1 new-seq2]
(cond
(and (empty? new-seq1) (empty? new-seq2))
acc
(or (empty? new-seq1) (empty? new-seq2))
false
:else
(recur (= (first new-seq1) (first new-seq2)) (rest new-seq1) (rest new-seq2))))]
(helper true seq1 seq2)))

(defn find-first-index [pred a-seq]
":(")
(loop [index 0
the-pred pred
the-seq a-seq
]
(cond
(empty? the-seq)
nil
(the-pred (first the-seq))
index
:else
(recur (inc index) the-pred (rest the-seq)))))

(defn avg [a-seq]
-1)
(loop [the-sum 0
the-count 0
the-seq a-seq
]
(if (empty? the-seq)
(if (zero? the-count)
nil
(/ the-sum the-count))
(recur (+ the-sum (first the-seq)) (inc the-count) (rest the-seq)))))

(defn toggle [a-set elem]
(if (contains? a-set elem)
(disj a-set elem)
(conj a-set elem)))

(defn parity [a-seq]
":(")
(loop [result-set #{}
rest-of-set a-seq]
(if (empty? rest-of-set)
result-set
(recur (toggle result-set (first rest-of-set))
(rest rest-of-set)))))

(defn fast-fibo [n]
":(")
(if (< n 2)
n
(loop [index 2
f-n-1 1
f-n 1]
(if (= index n)
f-n
(recur (inc index) f-n (+ f-n-1 f-n))))))

(defn cut-at-repetition [a-seq]
[":("])
(loop [result-seq []
remaining-seq a-seq]
(cond
(empty? remaining-seq)
result-seq
(true? (some #(= (first remaining-seq) %) result-seq))
result-seq
:else
(recur (conj result-seq (first remaining-seq)) (rest remaining-seq)))))