++j) print i*j, "\t" print "\n"
Rekurencyjne zdefiniowanie funkcji silnia. define silnia(n){ if (n <= 1) return 1; return n * silnia(n-1);
Potęgowanie Potęgowanie w POSIX bc /* Funkcja zwraca część całkowitą liczby */ define i(x) { auto s s = scale scale = 0 x /= 1 /* zaokrągla x z niedomiarem */ scale = s return (x)
/* Funkcja wykorzysuje fakt, iż x^y == e^(y*log(x)) */ define p(x,y) { if (y == i(y)) { return (x ^ y)
return ( e( y * l(x) ) ) } Potęgowanie w GNU bc # Funkcja zwraca część całkowitą liczby define int(number) { auto oldscale oldscale = scale scale = 0 number /= 1 /* round number down */ scale = oldscale return number
# Funkcja wykorzysuje fakt, iż x^y == e^(y*log(x)) define power(number,exponent) { if (exponent == int(exponent)) { return number ^ exponent } else { return e( exponent * l(number) )
Kategoria:Oprogramowanie matematyczne Kategoria:Języki skryptowe bc