Name: Anonymous 2018-01-09 8:59
Quiz. write a function \(r(f,x,n)\) that returns a list \([f(x), f(f(x)), f(f(f(x))), ...]\), length \(n\).
function r(f,x,n)
return [f(x), f(f(x)), f(f(f(x))), n];
def y(f,x,n):a=[f(x)];exec("a.append(f(a[-1]));"*(n-1));return a
(define (r f x n)
(if (= n 0)
'()
(append (list (f x)) (r f (f x) (- n 1)))))
(define (r f x n)
(if (= n 0)
'()
(cons (f x) (r f (f x) (- n 1)))))
(define(r f x n)(if(= n 0)'()`(,(f x).,(r f(f x)(- n 1)))))
r(f,x,n) = take n $ tail $ iterate f x
VARIABLE F
VARIABLE X
VARIABLE N
: R
N ! X ! F !
N @ 0 DO
X @ F @
EXECUTE
DUP X !
LOOP ;
; eax:x
; ecx:n
; ebx:f(eax)->eax
; edi:list[n] out
r:
jecxz rret
rloop:
call ebx
stosd
loop rloop
rret:
ret
(defun nst-lst (f x n)
(do ((v (make-array n :fill-pointer 0))
(acc (funcall f x) (funcall f acc)))
((null (vector-push acc v)) v)))
function nstLst(f, x, n) {
return n > 0 ? [f(x), ...nstLst(f, f(x), n-1)] : []
}
function nstLst2(f, x, n) {
let xs = [f(x)]
for (; n > 0; n--, xs.push(f(xs[xs.length-1])));
return xs
}
r(f,x,n+1) = x' : r(f,x',n) where x' = f x
r _ = []
As soon as she touched my penis I came and started fartingnot cool