エカつきのブログ = Eka tsuki no blog

macro
permutasi y x
mconstant n k i j fak1 fak2 per
mcolumn x y

#mencari n!
let n = x
if n<0
print 'Masukkan kembali nilai n >= 0'
elseif n=0
print '0! = 1'
else
let fak1=1
do i=1:n
let fak1=fak1*i
enddo
endif

#mencari (n-k)!
let k = y
if n print 'Masukkan kembali nilai n >= k'
elseif k<0
print 'Masukkan kembali k>0'
elseif k=n
let per=fak1
else
let fak2=1
do j=1:n-k
let fak2=fak2*j
enddo

#menghitung perrmutasi
let per=fak1/fak2
endif
print per
endmacro