script.whizzml

(define (clean-up ds-id)
  (let (ds (fetch ds-id)
        fds (resource-fields ds)
        fds (map (lambda (id f) (assoc f "id" id)) (keys fds) (values fds))
        cf? (lambda (fd) (< (count (field-distribution fd)) 2))
        excl (map (lambda (f) (f "id")) (filter cf? fds)))
    (wait (create-dataset ds-id {"excluded_fields" excl}))))

(define dataset (clean-up input-dataset))