rockBreaker

;sorted hand vals 
(defn sorted-hand-vals [hand]
  (sort (keys (frequencies (map rank hand)))))

(defn low-ace-helper [hand]
    (= hand (range (apply min hand) (inc (apply max hand)))))

;low ace straight?
(defn low-ace-straight? [hand]
  (low-ace-helper (sort (replace {14 1} (sorted-hand-vals hand)))))

rockBreaker

(comp first reverse) ; sick function get last

(comp second reverse) ;secondary sick function get second last

(defn my-fun [col] (nth col (- (count col) 2)))

(= (my-fun (list 1 2 3 4 5)) 4)

rockBreaker

(defn books->string
  [books]
  (cond (= (count books) 0) "No books."
        (= (count books) 1) (str "1 book. " (apply book->string books) ".")
        :else (str (count books) " books. " (apply str (interpose ". " (map book->string books)))  ".")))
 

rockBreaker

(defn author->string
  [author]
   (if
     (contains? author  :birth-year)
      (str (:name author)'" (" (get author :birth-year) '" - "(get author :death-year) '")")
      (str (:name author))))

rockBreaker

(defn author->string 
  [author]
   (if 
     (contains? author  :birth-year) 
      (str '"(" (get author :birth-year) '" - "(get author :death-year) '")") 
      (str (:name author)))

rockBreaker

(ns structured-data)

(defn do-a-thing
  [x]
  (let [xplus (+ x x)]
  (Math/pow xplus xplus)))

 (defn spiff
   [v]
   (+ (get v 0 0) (get v 2 0)))

rockBreaker

(defn divides?
  [div n]
  (= (mod n div) 0))

(defn guy-year2?
  [year]
  (if (divides? 400 year)
             true
             (if (divides? 100 year)
                        false 

rockBreaker

(defn leap-year? 
  [year]
   (and (divides? 4 year)
        (divides? 100 year) 
        (divides? 400 year)))

(defn divides?
  [divisor n]
  (if (= (mod n divisor) 0) true false))