C:\> ruby calc.rb

>>

>> 1+ 1
=> 2
>> 3 * 4
=> 12

bobs_first_name = "Bob"
bobs_last_name = "Smith"
puts bobs_first_name + " " + bobs_last_name

class Name
   attr_reader :first, :last
   def initialize(first, last)
      @first, @last = first, last
   end
   def to_s
      @first + " " @last
end

class Person
   attr_reader :name
   def initialize(first_name, last_name)
      @name = Name.new(first_name, last_name)
   end
end

bob = Person.new("Bob", "Smith")
puts bob.name

procedure Some_Proc(Some_Arg: in Some_Type; Result: out Some_Type) is
begin
   for I in 1 .. 3 loop
      Result := Result + Some_Arg;
   end loop;
end Some_Proc;

sample = "hello a world aa bar aaa baz"
revised = sample.gsub(/(a+)/i) { |match| "Foo" * match.length }

string.gsub(pattern) { |match| <operations> }

// in Java
import java.lang.*;
import java.io.*;

public class HelloWorld {
   public static void main(String[] args) {
      System.out.println("Hello world");
   }
}

// in C++
#include <iostream>

int main(int argc, char **argv)
{
   std::cout << "Hello world" << std::endl;
   return 0;
}

-- in Eiffel
class
   HELLO_WORLD
creation { ANY }
   make
feature { ANY }
   make is
      do
         std_output.put_string("Hello world")
         std_output.put_new_line
      end
end

-- in Ada95
with Ada.Text_IO; use Ada.Text_IO;
procedure Hello_World is
begin
   Put_Line("Hello world");
end Hello_World;

// in C#
using System;

public class HelloWorld
{
   public static void Main(string[] args)
   {
      Console.WriteLine("Hello world");
   }
}

/* in C */
#include <stdio.h>

int main(int argc, char *argv[])
{
   puts("Hello world");
   return 0;
}

(* in O'Caml *)
print_endline "Hello world"

# in Perl
print "Hello world\n";

# in Python
print "Hello world"

# in Ruby
puts "Hello world"

% in Turing
put "Hello world"

$string = "hello a world aa bar aaa baz";
$string =~ s/a/Foo/g;

raw_string = "a aa aaa aaaa aaaaa"
new_string = raw_string.gsub(/(a+)/i) do |match|
   case match.length
      when 1 then "Foo"
      when 2 then "Bar"
      when 4 then "Baz"
      else "Wooble"
   end
end

$string = "aa aaa aaaa aaaaa";
$string =~ s[(a+)] {
    (length($&) == 1) ? "Foo" :
    (length($&) == 2) ? "Bar" :
    (length($&) == 4) ? "Baz" : "Wooble"
}gxe;