| K |
http://www.kx.com |
| ähnliche Sprachen: | A+ APL J | |
| Eulersche Zahl | 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) |
| Berechnet die Eulersche Zahl
(e=2.71828). |
| Fakultät (iterativ) | Michael Neumann |
fac:{ */ 1 + !x } / { ... } ist eine Fuktion
fac @ 6 / Funktion aufrufen mit 6 als Parameter
|
Berechnet die Fakultät. Ergibt
720. |
| Fakultät (rekursiv) | 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
|
Berechnet die Fakultät. Ergibt
720. |
| Hello World | Michael Neumann |
/ Hello World in K ` 0:"Hello World\n" |
| Gibt "Hello World" auf dem Bildschirm
aus. |
| Squares (1) | Michael Neumann |
i:1 + !10 `0:5:i*i |
| Gibt die Quadrate von 1 bis 10
aus. |
| 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 |
| Gibt die Quadrate von 1 bis 10
aus. |