It's GG

My office setup….

Fri, 05 Feb 2010 10:49:41 +0530

My office setup….

New proc syntax in 1.9

Mon, 04 Jan 2010 22:37:36 +0530

BEGIN {
  puts "Ruby Version : #{RUBY_VERSION}"
}

succ = ->(x=0) { x + 1 }
p succ.call
p succ.call(2)

successor = Proc.new {|x=0| x + 1}
p successor.call
p successor.call(10)

Output

Ruby Version : 1.9.1
1
3
1
11

But thanks, I will stick with the old syntax!

Fibers in Ruby 1.9

Sun, 03 Jan 2010 22:44:59 +0530

class Fib
  include Enumerable
  
  def initialize(stop_at)
    @count = 0
    @stop_at = stop_at
    @first, @second = 0, 1
    @fiber = Fiber.new do
      loop do
        @first, @second = @second, @first + @second
        @count += 1
        Fiber.yield @first
      end
    end
  end
  
  def next
    @fiber.resume
  end
  
  def rewind
    @first, @second = 0, 1
  end
  
  def each
    loop do
      @count == @stop_at ? break : yield(self.next)
    end
  end
end

# Print the first 20 fibonacci numbers
Fib.new(20).each do |elem|
  puts elem
end

Output

tap method in Ruby 1.9

Thu, 31 Dec 2009 19:23:00 +0530

str = "Hello GG"

str.tap {|x| puts "str : #{x}"}
  .each_char.tap {|x| puts "each_char : #{x}"}
  .sort.tap {|x| puts "sort : #{x}"}

Output

str : Hello GG
each_char : #
sort : [" ", "G", "G", "H", "e", "l", "l", "o"]

Photo

Wed, 30 Dec 2009 22:03:32 +0530

It is never too early to walk!

Wed, 30 Dec 2009 21:54:00 +0530

It is never too early to walk!

Photo

Fri, 23 Oct 2009 12:24:11 +0530

Photo

Wed, 07 Oct 2009 14:10:08 +0530

Homebase

Fri, 25 Sep 2009 12:48:06 +0530

Homebase

Hello Dad!!

Tue, 22 Sep 2009 18:39:15 +0530

Hello Dad!!

Poor man's website downloader

Mon, 31 Aug 2009 22:06:00 +0530

alias wgetr="wget -rSNpk -np --execute 
  robots=off -U \"Mozilla/5.001 (windows; U; NT4.0; en-us) 
  Gecko/25250101\" $@"

Mixins in Scheme

Mon, 31 Aug 2009 11:14:27 +0530

#lang scheme

(define person% (class object% 
		       (init name)
		       (super-new)
		       (define current-name name)
		       (define/public (set-name name)
			 (set! current-name name))
		       (define/public (get-name)
			 current-name)))

(define (talkable-person %)
  (class % (super-new) 
	 (define/public (talk)
	   "blah blah")))

(define talking-person% (talkable-person person%))

(define gg (new talking-person% (name "GG")))
(send gg get-name)
(send gg talk)

bash-3.2$ mzscheme mixin.ss 
"GG"
"blah blah"

Interfaces in Scheme

Mon, 31 Aug 2009 10:59:00 +0530

#lang scheme

(define person-interface (interface() get-name set-name))

(define person% (class* object% (person-interface)
			(init name)
			(define current-name name)
			(super-new)
			(define/public (get-name)
			  current-name)
			(define/public (set-name name)
			  (set! current-name name))
			))

(define gg (new person% [name "GG"]))
(send gg get-name)
(send gg set-name "Ganesh Gunasegaran")
(send gg get-name)

(is-a? gg person-interface)
(is-a? gg person%)


bash-3.2$ mzscheme oops.ss
"GG"
"Ganesh Gunasegaran"
#t
#t

Wanna fight?

Wed, 26 Aug 2009 23:05:46 +0530

Wanna fight?

while hungry ping mom end

Wed, 26 Aug 2009 22:58:00 +0530

while hungry
ping mom
end

This is odd, github showing dev trace?

Wed, 19 Aug 2009 23:55:11 +0530

This is odd, github showing dev trace?

Announcing baby girl GA release :P

Wed, 19 Aug 2009 22:45:01 +0530

Announcing baby girl GA release :P

Easy comment/uncomment selection in emacs

Sun, 16 Aug 2009 21:12:54 +0530

Add this to .emacs

;; Comment/Uncomment region
(global-set-key (kbd "s-/") 'comment-dwim)

Toggle comment of the selected region by pressing Apple + /

OOP in Scheme

Sat, 15 Aug 2009 17:38:11 +0530

#lang scheme

(define student% (class object%
                  (init name age)
                  
                  (define this-name name)
                  (define this-age age)                  
                  
                  (super-new)
                  
                  (define/public (get-name)
                    this-name)
                  
                  (define/public (set-name name)
                    (set! this-name name))
                  
                  (define/public (get-age)
                    this-age)
                  
                  (define/public (set-age age)
                    (set! this-age age))
                  ))

> (define gg (new student% [name "Ganesh"] [age 28]))
> (send gg get-name)
"Ganesh"
> (send gg get-age)
28
> (send gg set-name "GG")
> (send gg get-name)
"GG"

parameterized procedures in Scheme

Fri, 14 Aug 2009 22:29:00 +0530

(define fav-color (make-parameter 'blue))

(define whats-ur-fav-color? 
  (lambda ()
    (fav-color)))
> (whats-ur-fav-color?)
blue
> (parameterize ((fav-color 'red))
             (whats-ur-fav-color?))
red