Skip to content

Instantly share code, notes, and snippets.

@jaredcacurak
jaredcacurak / euler1.clj
Created January 25, 2011 22:36
A Clojure solution for Project Euler - Problem 1
(reduce +
(distinct
(concat (range 3 1000 3)(range 5 1000 5))))
@jaredcacurak
jaredcacurak / euler6.clj
Created January 25, 2011 22:33
A Clojure solution for Project Euler - Problem 6
(def whole-numbers (iterate inc 1))
(defn square [n] (* n n))
(defn sum-of-squares [n]
(reduce +
(take n
(map square whole-numbers))))
(defn square-of-sum [n]
@jaredcacurak
jaredcacurak / euler2.clj
Created January 25, 2011 22:31
A Clojure solution for Project Euler - Problem 2
(def fibs
(map first
(iterate (fn [[a b]] [b (+ a b)]) [0 1])))
(reduce +
(take-while
(partial > 4000000) (filter even? fibs)))
@jaredcacurak
jaredcacurak / FizzBuzz.java
Created January 20, 2011 15:19
An implementation of the FizzBuzz.
package com.rocketpush.puzzle;
public class FizzBuzz {
public static String fizzBuzz(boolean isFizzy, boolean isBuzzy, int i) {
String value = String.valueOf(i);
if (isFizzy && isBuzzy) {
value = "FizzBuzz";
} else if (isFizzy) {
value = "Fizz";