K    up http://www.kx.com
  similar languages: A+   APL   J  
 


 Eulersche Number   Michael Neumann
/ die Eulersche Zahl ist die Summe der Reziproken der Fakultäten

fac:{*/1+!x}         / Fakultät-Funktion

+/ % fac' ! 10       / fac' wendet die Funktion auf eine Liste an (EACH)
Calculates the eulersche-number (e=2.71828).


  Factorial (iterative)   Michael Neumann
fac:{ */ 1 + !x }    / { ... } ist eine Fuktion

fac @ 6              / Funktion aufrufen mit 6 als Parameter
Calculates the factorial. Results 720.


  Factorial (recursive)   Michael Neumann
fac: {
   if[ x>1; : x * fac[x-1] ]   / wenn x>1, x * fac(x-1) zurückgeben
   :1                          / ansonsten 1 zurückgeben
}

/ oder kürzer:
fac: {:[x>1; x * fac[x-1]; 1]}

/ oder ohne den Funktionsnamen zu verwenden:
fac: {:[x>1; x * _f[x-1]; 1]}


fac . 6        / Funktion aufrufen mit 6 als Parameter
Calculates the factorial. Results 720.


 Hello World   Michael Neumann
/ Hello World in K

` 0:"Hello World\n"
Prints "Hello World" onto the screen.


 Squares (1)   Michael Neumann
i:1 + !10
`0:5:i*i
Outputs the squares from 1 to 10.


 Squares (2)   Michael Neumann
i:1 + !10   / erzeugt liste von 1-10 und weist diese 'i' zu

`0:5:i*i    / `0:x gibt x auf Bildschirm aus
            / 5:x wandelt x in String
Outputs the squares from 1 to 10.