Use fdisk -l
to find the correct index
Delete the existing filesystem
d
Create a new partition
(defn next-prime | |
([] (concat [2 3] (next-prime [2 3]))) | |
([primes] | |
(loop [candidate (-> primes peek (+ 2))] | |
(if (->> primes | |
(take-while #(<= % (Math/sqrt candidate))) | |
(some #(zero? (mod candidate %)))) | |
(recur (+ candidate 2)) | |
(lazy-seq (cons candidate (next-prime (conj primes candidate)))))))) |