Fogus fogus

💭

attempting to learn how to better learn

fogus / gist:168046

Created August 14, 2009 19:32


	(defn filter-collecting [predicate collector & lists]
	(lazy-seq
	(loop [lists lists out []]
	(if (empty? (first lists))
	(reverse out)
	(let [heads (map first lists)]
	(if (apply predicate heads)
	(recur (map rest lists) (cons (apply collector heads) out))
	(recur (map rest lists) out)))))))

fogus / gist:168048

Created August 14, 2009 19:35


	(defn filter-collecting [predicate collector & lists]
	(lazy-seq
	(loop [lists lists out []]
	(if (empty? (first lists))
	(reverse out)
	(let [heads (map first lists)]
	(if (apply predicate heads)
	(recur (map rest lists) (cons (apply collector heads) out))
	(recur (map rest lists) out)))))))

fogus / gist:168051

Created August 14, 2009 19:37


	(defn filter-collecting [predicate collector & lists]
	(lazy-seq
	(loop [lists lists out []]
	(if (empty? (first lists))
	(reverse out)
	(let [heads (map first lists)]
	(if (apply predicate heads)
	(recur (map rest lists) (cons (apply collector heads) out))
	(recur (map rest lists) out)))))))

fogus / gist:168052

Created August 14, 2009 19:39


	(defn filter-collecting [predicate collector & lists]
	(lazy-seq
	(loop [lists lists out []]
	(if (empty? (first lists))
	(reverse out)
	(let [heads (map first lists)]
	(if (apply predicate heads)
	(recur (map rest lists) (cons (apply collector heads) out))
	(recur (map rest lists) out)))))))

fogus / gist:168053

Created August 14, 2009 19:40


	(defn filter-collecting [predicate collector & lists]
	(lazy-seq
	(loop [lists lists out []]
	(if (empty? (first lists))
	(reverse out)
	(let [heads (map first lists)]
	(if (apply predicate heads)
	(recur (map rest lists) (cons (apply collector heads) out))
	(recur (map rest lists) out)))))))

fogus / gist:183938

Created September 9, 2009 18:24


	;; largest prime factor
	(defn lpf
	"Takes a number n and a starting number d > 1
	and calculates the largest prime factor of n
	starting at number d.

	usage: (lpf 364362978 2) => 8675309"
	[n d]
	(if (> d n)

fogus / gist:183941

Created September 9, 2009 18:24


	;; largest prime factor
	(defn lpf
	"Takes a number n and a starting number d > 1
	and calculates the largest prime factor of n
	starting at number d.

	usage: (lpf 364362978 2) => 8675309"
	[n d]
	(if (> d n)

fogus / gist:183946

Created September 9, 2009 18:28


	;; largest prime factor
	(defn lpf
	"Takes a number n and a starting number d > 1
	and calculates the largest prime factor of n
	starting at number d.

	usage: (lpf 364362978 2) => 8675309"
	[n d]
	(if (> d n)

fogus / gist:183950

Created September 9, 2009 18:31


	;; largest prime factor
	(defn lpf
	"Takes a number n and a starting number d > 1
	and calculates the largest prime factor of n
	starting at number d.

	usage: (lpf 364362978 2) => 8675309"
	[n d]
	(if (> d n)

fogus / gist:183952

Created September 9, 2009 18:34


	;; largest prime factor
	(defn lpf
	"Takes a number n and a starting number d > 1
	and calculates the largest prime factor of n
	starting at number d.

	usage: (lpf 364362978 2) => 8675309"
	[n d]
	(if (> d n)