Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- papierkorb:the_factorial_function_in_several_languages [2025-08-10 23:03] – ↷ Seite von projects:the_factorial_function_in_several_languages nach papierkorb:the_factorial_function_in_several_languages verschoben mka
+++ papierkorb:the_factorial_function_in_several_languages [Unbekanntes Datum] (aktuell) – gelöscht - Externe Bearbeitung (Unbekanntes Datum) 127.0.0.1
@@ Zeile 1: / Zeile 1: @@
-The factorial function in several languages:
-<code>
-	   The factorial function takes a positive
-	integer, and returns a positive integer.  Its
-	value is the product of all the integers from
-	one up to the value of the parameter.  It is
-	normally written with a postfix exclamation
-	point, thus:
-! =  1
-! =  1
-! =  2
-! =  6
-! =  24
-! = 120
-	The factorial function is used in this example
-	to illustrate a number of different programming
-	languages.
-Assembler -- iterative
-	;
-	;	given n in A, returns n! in DE
-	;	no warrantees, expressed or implied
-	;	about any other returned register
-	;	contents.
-	;
-	FACT:	LXI	DE,1
-		ORA	A
-		RZ
-	F1:	CALL	MULT
-		DEC	A
-		JNZ	F1
-		RET
-	;
-	;	MULTIPLY A BY DE, RESULT IN DE
-	;
-	MULT:	MOV	B,A
-		MOV	A,D
-		MOV	C,16
-	M1:	SHL
-		PUSH	A
-		MOV	A,E
-		RLC
-		MOV	E,A
-		POP	A
-		JCC	M2
-		ADD	B
-	M2:	DEC	C
-		JNZ	M1
-		MOV	D,A
-		MOV	A,B
-		RET
-Assembler -- iterative
-	;
-	;	given n in cx, returns n! in dx:ax
-	;	clobbers cx in the process
-	;
-	fact	proc
-		mov	ax,1
-		jcnz	f1
-		ret
-	f1:	mul	cx
-		loop	f1
-		ret
-	fact	endp
-IBM/PC Basic -- iterative, recursion not allowed
-REM  -- GIVEN N, RETURNS N! IN FACT
-REM     USES I AS TEMPORARY
-FACT=1
-IF N=0 THEN GOTO 70
-FOR I=1 TO N
-FACT=FACT*I
-NEXT I
-FORTRAN -- iterative, recursion not allowed
-	INTEGER FUNCTION FACT(N)
-	FACT=1
-	IF(N) 10,20,30
-	DO 40 I=1,N
-FACT=FACT*I
-RETURN
-CALL ERROR
-	END
-COBOL -- iterative, recursion not allowed
-	FACTORIAL-ROUTINE.
-		MOVE ONE TO FACT.
-		PERFORM FACTORIAL-LOOP VARYING I FROM ONE TO N.
-	FACTORIAL-LOOP.
-		MULTIPLY FACT BY I.
-C -- iterative
-	int fact(n)
-	int n; {
-	    int f=1;
-	    while(n) f*=n--;
-	    return(f);
-	}
-C -- recursive
-	int fact(n)
-	int n; {
-	    return(n==0 ? 1 : n*fact(n-1));
-	}
-Forth -- iterative
-	: FACT 1 SWAP 0 ?DO I * LOOP ;
-Forth -- recursive
-	: FACT ?IF DUP 1- RECUR * ELSE 1 THEN ;
-APL -- iterative
-	FACT <-- * / IOTA N
-muLisp -- iterative
-	(DEFUN FACT (LAMBDA (N F)
-	    ((ZEROP N) 1)
-	    (SETQ F 1)
-	    (LOOP
-		(SETQ F (TIMES F N))
-		((ZEROP (SETQ N (SUB1 N))) F) ) ))
-muLisp -- recursive
-	(DEFUN FACT (LAMBDA (N)
-	    ((ZEROP N) 1)
-	    (TIMES N (FACT (SUB1 N))) ))
-microProlog -- recursive, iteration not allowed
-	((FACT 0 1))
-	((FACT _N _F)
-		(PLUS _M 1 _N)
-		(FACT _M _G)
-		(TIMES _N _G _F))
-AML -- iterative
-	fact: SUBR (%n);
-		IF n EQ 0 THEN RETURN(1);
-		f: NEW n;
-		WHILE --n GT 1 DO f *= n;
-		RETURN(f);
-	END;
-AML -- recursive
-	fact: SUBR (n);
-		RETURN(
-		    IF n EQ 0 THEN 1
-		    ELSE n * fact(n-1);
-		);
-	END;
-	F1:	CALL	MULT
-		DEC	A
-		JNZ	F1
-		RET
-	;
-	;	MULTIPLY A BY DE, RESULT IN DE
-</code>