gistfile1

#lang scheme

(require (planet soegaard/math/math))

(define (max-sum limit)
  (for*/fold ([max #f]
              [old-a #f]
              [old-b #f])
      ([a (in-range limit)]
       [b (in-range a)])
    (let ([this (apply + (digits (expt a b)))])
      (when (not max)
        (set! max this))
      (if (< max this)
          (values this a b)
          (values max old-a old-b)))))

(max-sum 100)