jol_perm.hy

; Lengd stafrófs = 32 stafir
; lengd stafrófs - 3 = 29 stafir
; Getum raðað JÓL á 3! = 6 vegu
; Getum raðað rest á 29! vegu
; Getum svo sett umröðunina á JÓL á 30 staði.
; fáum því að fjöldi umraðana á stafrófinu með JÓL við hliðná hvoru öðru er
; 29!*3!*30
; En ef JÓL þurfa að vera í réttri röð, þá er þetta bara 30! (getum þá litið á JÓL sem bara einn staf)
(def stafrof "AÁBDÐEÉFGHIÍJKLMNOÓPRSTUÚVXYÝÞÆÖ")

(defn fact [num]
  (progn (defn facthelper [c n]
           (if (<= n 0)
               c
               (facthelper (* c n) (- n 1))))
           (facthelper 1  10))) ; Mundi hjalpa ef hy vaeri med TCO :/
         

(print (* (* (fact (len "JOL") ) (fact (- (len stafrof) 3)))))