write this code :

# Decorator for printing execution time

time$\_$info $<-$ function$($f$)\{$

function$(...)\{$

start$\_$time $<-$ Sys$.$time$()$

result $<-$ f$(...)$

end$\_$time $<-$ Sys$.$time$()$

print$($paste$("$Time elapsed:", end$\_$time $-$ start$\_$time$))$

return$($result$)$

$\}$

$\}$

# Decorator for dynamic scoping

dynamic$\_$call $<-$ function$($f$)\{$

function$(...)\{$

old$\_$env $<-$ environment$($f$)$

environment$($f$)<-$ parent.frame$()$

on$.$exit$($environment$($f$)<-$ old$\_$env$)$

f$(...)$

$\}$

$\}$

in this syntax:

decorator $\%$decorator$\_$name$\%$

R

Copy code

decorator $\%$time$\_$info$\%$

f$(10^4)$

decorator $\%$dynamic$\_$call$\%$

f$(10^4)$

Enrich

write this code :

# Decorator for printing execution time

time$\_$info $<-$ function$($f$)\{$

function$(...)\{$

start$\_$time $<-$ Sys$.$time$()$

result $<-$ f$(...)$

end$\_$time $<-$ Sys$.$time$()$

print$($paste$("$Time elapsed:", end$\_$time $-$ start$\_$time$))$

return$($result$)$

$\}$

$\}$

# Decorator for dynamic scoping

dynamic$\_$call $<-$ function$($f$)\{$

function$(...)\{$

old$\_$env $<-$ environment$($f$)$

environment$($f$)<-$ parent.frame$()$

on$.$exit$($environment$($f$)<-$ old$\_$env$)$

f$(...)$

$\}$

$\}$

in this syntax:

decorator $\%$decorator$\_$name$\%$

R

Copy code

decorator $\%$time$\_$info$\%$

decorator $\%$dynamic$\_$call$\%$