002.rexx (141B)
1 #!/usr/bin/rexx 2 3 i = 1 4 j = 2 5 6 sum = 2 7 8 do while j <= 4000000 9 k = i + j 10 if \(k // 2) then 11 sum = sum + k 12 13 i = j 14 j = k 15 end 16 17 say sum
challengesmy solutions to various "programming challenge" problems | |
| git clone https://wehaveforgeathome.hates.computer/challenges.git | |
| Log | Files | Refs | LICENSE |