[Clojure] 4Clojure 5

 

#54 Partition a Sequence

(fn myfn [num list]
    (reverse 
        (
            (fn [num list result] 
                (if (> num (count list) ) 
                    result 
                    (recur num (nthrest list num) (conj result (take num list)))) 
            ) num list '() 
        ) 
    )
)

 

#55 Count Occurrences

(fn myfn [list]
    (zipmap 
        (map first (partition-by identity (sort list) ))
        (map count (partition-by identity (sort list) ))
    )
)