C-likes

c-likes.txt

// C-like languages

// C
int factorial(int n) {
    if (n <= 1) {
        return 1;
    } else {
        return n * factorial(n - 1);
    }
}

// PHP
function factorial(int $n): int {
    if ($n <= 1) {
        return 1;
    } else {
        return $n * factorial($n - 1);
    }
}

// JavaScript
function factorial(n) {
    if (n <= 1) {
        return 1;
    } else {
        return n * factorial(n - 1);
    }
}

// Not C-like

// Lisp

(defun factorial (n)
    (if (<= n 1)
        1
        (* n (factorial (- n 1)))
    )
)

// Pascal

procedure Factorial(var n : integer);
begin
    if n <= 1 then Factorial := 1
              else Factorial := n * factorial(n - 1);
end;

// QBASIC

FUNCTION Factorial (n%)
    IF n% <= 1 THEN
        Factorial = 1
    ELSE
        Factorial = n% * Factorial(n% - 1)
    ENDIF
END FUNCTION