1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
1
f8
b08
08e7
9a4f4
e02032
30073f3
f473f4b1
52f05330b
 ...

1
more like numbrod

1
2
3
4
5
6
7
8
9
#import<foundation/foundation.h>
 
int main (int argc, const char * argv[])
{
NSAutoreleasePool * pool = [[NSAutoreleasePool alloc] init];
NSLog (@”Programming is fun!”);
[pool drain];
return 0;
}

1
2
3
4
5
6
7
8
9
program test;
var 
  n : integer;
  i : integer;
begin
  readln(n);
 
  writeln(n);
end.

1
2
3
4
5
6
7
8
var 
  n : integer;
  i : integer;
begin
  readln(n);
 
  writeln(n);
end.

1
2
3
4
5
6
7
8
9
var 
        n : integer;
        i : integer;
begin
        readln(n);
 
 
 
        writeln(n);

1
2
3
4
5
6
7
8
program test;
var 
        n : integer;
        i : integer;
begin
        readln(n);
 
 
 ...

1
2
3
4
5
6
7
8
program test;
var 
        n : integer;
        i : integer;
        arr : array[0..3] of integer;
begin
        readln(n);
 
 ...

1
2
3
4
5
6
7
8
program test;
var 
        n : integer;
        i : integer;
        arr : array[0..3] of integer;
begin
        readln(n);
 
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
import anydbm
 
a = dbm.open("foo","c")
 
print a

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

1
2
3
4
5
6
7
8
9
 
 proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
 ...

1
2
3
4
5
6
7
8
9
 
 proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
 ...

1
2
3
Echo("What's your name? ")
var name: string = readLine(stdin)
Echo("Hi, ", name, "!")

1
2
3
4
for x in lines("myfile.txt"):
  if x =~ re"(\w+)=(.*)":
    echo "Key: ", matches[0],
         " Value: ", matches[1]

1
2
3
4
5
6
7
# Filter key=value pairs
import re
 
for x in lines("myfile.txt"):
  if x =~ re"(\w+)=(.*)":
    echo "Key: ", matches[0],
         " Value: ", matches[1]

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...

1
2
3
4
5
6
7
8
9
<?xml version="1.0" ?>  
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
                 
                                
<html xmlns="http://www.w3.org/1999/xhtml"><head>                               
<title>Geocache GC... F&uuml;r Informatiker -   2</title>                 
</head>                          
 ...

1
2
3
4
5
6
7
8
9
proc GetBottleNumber(n: int): string =
  var bs: string
  if n == 0:
    bs = "No more bottles"
  elif n == 1:
    bs = "1 bottle"
  else:
    bs = $n & " bottles"
  return bs & " of beer"
 ...