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. |