Project Euler Problem 25

Lau Jensen had put up another nice post. I am sure it was just for fun, and not really, really comparing all the three languages.

Anyways heres my solution to the same Euler Problem no. 25

	# Project Euler Problem 25
	# What is the first term in the Fibonacci sequence to contain 1000 digits?
	(def fibs (map second (iterate (fn [[a b]] [b (+ a b)]) [0 1])))
	(let [limit (.pow (BigInteger/TEN) 999)]
	(count (take-while #(< % limit) fibs)))

view raw gistfile1.clj hosted with ❤ by GitHub

Decapitalize and barf-string!!!

I have been working with Third Party API providers at work and I must say I am utterly disappointed with them. The API sends various arbitrary strings which we do not want to display and store. Hence wrote a few sanitizing functions, had fun writing them, and since i wanted to name a function starting with barf...here goes

	(defn #^String decapitalize [#^String s]
	"Decapitalize a String, i.e convert String to string
	or STRING to string"
	(if (< (count s) 2)
	(.toLowerCase s)
	(str (.toLowerCase (subs s 0 1))
	(.toLowerCase (subs s 1)))))
	(defn #^String barf-string [#^String s]
	"Takes a String which has special characters and Capitals at the start of each or some words
	and returns with all words decapitalized and with a seperator"
	(let [clean-string (st/re-gsub #"-|&|\.|:" " " s)
	split-strings (filter #(not-empty %) (st/re-split #" " clean-string))
	final-string (if (< (count split-strings) 2)
	(decapitalize (first split-strings))
	(st/str-join "-" (map #(decapitalize %) split-strings)))]
	final-string))

view raw string-utils.clj hosted with ❤ by GitHub

Clojure and Lazy Evaluation

This is not a post trying to explain Lazy Evaluation!! I was doing some problems from Project Euler while learning Clojure when its beauty dawned upon me. Here's my code

	;; Each new term in the Fibonacci sequence is generated by adding the previous two terms.
	;; By starting with 1 and 2, the first 10 terms will be:
	;; 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
	;; Find the sum of all the even-valued terms in the sequence which do not exceed four million.
	;;; Lazy Sequence of infinite fibo seqs
	(defn fibo []
	(map first (iterate (fn [[a b]] [b (+ a b)]) [0 1])))
	(defn prob2 []
	(reduce + (filter even? (take-while (fn [n] (< n 4000000)) (fibo)))))

view raw gistfile1.lisp hosted with ❤ by GitHub

My Desk in Office

My Desk in Office
Originally uploaded by adityod

My Cool Setup in Office, have this nice 19 inch widescreen monitor (1440x900) to run only emacs, the rest is run on my laptop screen, i.e Firefox, Alpine, Irssi and Finch. Happy Development!!!

dot emacs and github

Git has become quite popular as distributed code revision tool. I have been a long time SVN user, and i thought why not give Git a try. github is a site that provides a free plan to host public git repositories. They have various plans(paid), but i guess the free one works best for me. Finally i shall keep my dot emacs under revision control.

There's excellent help on the git website, especially for svn user's http://git.or.cz/course/svn.html.

My public clone url

git clone git://github.com/adityo/dot-emacs.git

Xft Goodness

I currently use an imac at work, and will have to say the fonts and rendering on OSx are absolutely stunning. I simply cannot work on my Linux box after a long days work staring at a Mac screen. I had to do something about this, and so when i updated to Ubunty Hardy Heron i Googled around to see if i could get Xft support for Emacs. The awesome EmacsWiki page for Xft told me that if i had Hardy emacs came with Xft support inbuilt. So it was just a matter of

 sudo apt-get install emacs-snapshot-gtk 

and

 echo "Emacs.font: Monospace-10" > .Xresources 

Presto!! Emacs with all the Xft goodness.

Below is a screenshot of my current system with Emacs and urxvt also with Xft enabled.



Update 1/12/2008:
My imac has crashed..switched to Ubuntu Hardy on an IBM R60..sigh!!

My first post

Hello there, this is my second first post!! My second attempt at blogging. The blog template has been modified since i didnt like the one that Google provided and the free ones available were just not to my liking..