/*MerryChristmas.c*/

[Gérard Milmeister]

On Sun, 2008-12-28 at 21:50 -0500, Casey Dahlin wrote:
> Arthur Pemberton wrote:
> > On Wed, Dec 24, 2008 at 3:11 PM, Rodrigo Padula de Oliveira
> > <rodrigopadula at projetofedora.org> wrote:
> >   
> >> /*MerryChristmas.c*/
> >> void main (int argc, char* argv[])
> >> {
> >>    printf("\n Merry Christmas! \n");
> >>    if (strcmp(argv[1],"girl") == 0)    /*general idea*/
> >>        printf("Kisses! \n");
> >>    else
> >>        printf("Hugs! \n");
> >> }
> >>     
> >
> >
> > #i!/bin/env python
> > import sys
> > print 'Kisses!' if len(sys.argv) == 2 and sys.argv[1].lower() ==
> > 'girl' else 'Hugs!'
> >
> >   
> #! /usr/bin/env ruby
> 
> class Object
>   def response
>     "Hugs!"
>   end
> end
> 
> class String
>   def response
>     return "Kisses!" if self.downcase == "girl"
>     super
>   end
> end
> 
> puts "Merry Christmas!\n#{ARGV[0].response}"

#!/usr/bin/sbcl --script
(princ #\newline)
(princ "Merry Christmas!")
(princ #\newline)

(let ((argv sb-ext:*posix-argv*))
  (if (> (length argv) 1)
      (let ((type (string-downcase (cadr argv))))
        (if (equal type "girl")
            (princ "Kisses!")
            (princ "Hugs!")))))

(princ #\newline)