(define ways-to-partition-using-no-smaller-than
  (lambda (n k)
    (cond ((= n 0) 1)
          ((< n k) 0)
          (else (+ (ways-to-partition-using-no-smaller-than (- n k) k)
                   (ways-to-partition-using-no-smaller-than n (+ k 1)))))))

(define ways-to-partition
  (lambda (n)
    (ways-to-partition-using-no-smaller-than n 1)))