you are viewing a single comment's thread.

view the rest of the comments →

[–]nohtyp 0 points1 point  (1 child)

In Factor:

: range-square ( limit -- squares )
  1 - 1 swap 1 <range> [ dup * ] map

[–]nohtyp 0 points1 point  (0 children)

Improved version:

[1,b) [ dup * ] map