Anonymous user
Generator/Exponential: Difference between revisions
I'm so sorry I misunderstood test condition. I verified this new code against all the integer solution (i,j) of i^3 = j^2 and confident that this is accurate.
(Adding emacs lisp solution) |
(I'm so sorry I misunderstood test condition. I verified this new code against all the integer solution (i,j) of i^3 = j^2 and confident that this is accurate.) |
||
Line 1,295:
(iter-defun exp-gen (pow)
(let ((i
(while
(setq i (1+ i))
Line 1,301:
(iter-defun flt-gen ()
(let* ((
(i (iter-next g))
(j (iter-next f)))
(while
(
(setq j (iter-next f)))
(unless (= i j)
(iter-yield i)))))
(let ((g (flt-gen))
Line 1,316 ⟶ 1,317:
(dotimes (i 29)
(setq o (iter-next g))
(when (>= i
(print o))))
=={{header|Erlang}}==
| |||