oz - 创建函数列表 Oz Mozart

Question

我正在尝试创建一个函数列表 oz，这个列表将作为输入粘贴到另一个函数。有人可以帮我吗？

Answer 1

declare
fun{Op State FunctionList}
   case FunctionList of H|T then {Op {H State} T}
   [] nil then State
   end
end

X={Op 1 [fun{$ S} S+4 end
         fun{$ S} S*2 end
         fun{$ S} S-3 end
         fun{$ S} S*S end]}

{Browse X}

在此示例中，函数 Op 执行带有状态参数的函数列表。(((1+4)*2)-3)^2=49

declare
fun{Power L U} %return a list of power function from ^L to ^U
   if L>U then nil
   else fun{$ X} {Pow X L} end | {Power L+1 U}
   end
end

FList={Power 0 10}

{Browse {Map FList fun{$ Fun} {Fun 2} end}}

在另一个示例中，函数 Power 生成一个幂函数列表 [X¹ X² X³...]。然后，对于列表中的每个函数，应用另一个函数。最后一个函数将每个函数作为参数并将其 2 作为参数...