1d8
@verb #7407:"make" this none this rxdo #7407
@program #7407:"make" this none this
"Copied from list utilities (#30):make by Hacker (#60)Jan 28 11:50:47 2001"
":make(n[,elt]) => a list of n elements, each of which == elt. elt defaults to 0."
{n, ?elt = 0} = args
n < 0 && raise(E_INVARG)
build = {elt}
ret = {}
while (1)
  if (n % 2)
    ret = {@ret, @build}
  endif
  if (n = n / 2)
    build = {@build, @build}
  else
    return ret
  endif
endwhile
.

0