Square but not cube: Difference between revisions
→{{header|Clojure}}: Add implementation
Not a robot (talk | contribs) (Add PL/I) |
(→{{header|Clojure}}: Add implementation) |
||
Line 619:
1024
1089</pre>
=={{header|Clojure}}==
<lang clojure>(defn square? [n] (some #(= n (* % %)) (range 1 (inc (. Math sqrt n)))))
(defn cube? [n] (some #(= n (* % % %)) (range 1 (inc (. Math pow n (/ 1 3))))))
(println "Squares but not cubes:")
(println (take 30 (filter #(and (square? %) (not (cube? %))) (range))))
(println "Both squares and cubes:")
(println (take 3 (filter #(and (square? %) (cube? %)) (range))))</lang>
{{Out}}
<pre>Squares but not cubes:
(4 9 16 25 36 49 81 100 121 144 169 196 225 256 289 324 361 400 441 484 529 576 625 676 784 841 900 961 1024 1089)
Both squares and cubes:
(1 64 729)</pre>
=={{header|COBOL}}==
| |||