q a b c=putStrLn $ b ++ [toEnum 10,'q','('] ++ show b ++ [','] ++ show c ++ [','] ++ show a ++ [')']
main=q "q a b c=putStrLn $ b ++ [toEnum 10,'q','('] ++ show b ++ [','] ++ show c ++ [','] ++ show a ++ [')']" "def q(a,b,c):print b+chr(10)+'q('+repr(b)+','+repr(c)+','+repr(a)+')'" "def e(x) return 34.chr+x+34.chr end;def q(a,b,c) print b+10.chr+'main=q '+e(b)+' '+e(c)+' '+e(a)+' '+10.chr end"


via http://sigfpe.blogspot.com/2008/02/third-order-quine-in-three-languages.html

Tags: haskell, python, ruby, программирование

(Leave a comment)

Tags: jruby, ruby

(7 comments | Leave a comment)

# A real lambda
λ { puts ‘Hello’ }.call => ‘Hello’

# Sigma - sum of all elements
∑ [1,2,3] => 6

# Square root
√ 49 => 7.0

# Be sure to run with the "-Ku" flag!
module Kernel
   alias λ proc

   def ∑(*args)
      sum = 0
      args.each{ |e| sum += e }
      sum
   end

   def √(root)
      Math.sqrt(root)
   end
end

Tags: ruby, unicode

(7 comments | Leave a comment)