Rebol    hoch http://www.rebol.com
 
 


  Fakultät (1)   chaz 
fact: func [nummer] 
    [either equal? nummer 1 
        [1] 
        [multiply nummer fact subtract nummer 1]
    ]



fact 6
Berechnet die Fakultät. Ergibt 720.


  Fakultät (2)   chaz 
factorial: func [num][
    fact: func [n a] [
        any [
            if lesser? n 0 [0]              
            switch n [0 1 a]                
            fact subtract n 1 multiply n a  
        ]
    ] 
    fact num 1
]


factorial 6
Berechnet die Fakultät. Ergibt 720.


 Hello World   Michael Neumann 
print "Hello World"
Gibt "Hello World" auf dem Bildschirm aus.


 Squares (1)   Michael Neumann 
repeat i 10 [prin i * i prin " "]
Gibt die Quadrate von 1 bis 10 aus.


 Squares (2)   Michael Neumann 
for i 1 10 1 [prin i * i prin " "]
Gibt die Quadrate von 1 bis 10 aus.


 Squares (3)   chaz 
print repeat i 10 [append [] multiply i i]
Gibt die Quadrate von 1 bis 10 aus.