QB / QB64 Discussion Forum      Other Subforums, Links and Downloads
 

 Return to Index  

Seems to work

June 11 2011 at 2:26 PM
qbguy  (no login)


Response to A tough one

(define (lawgin x) (apply lcm (iota x 1)))

1 ]=> (map lawgin (iota 20 1))

;Value: (1 2 6 12 60 60 420 840 2520 2520 27720 27720 360360 360360 360360 720720 12252240 12252240 232792560 232792560)

 
 Respond to this message   
Responses

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement