K ![]() |
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. |