#lang racket (define (double x) (* 2 x)) ; a helper function for testing code. (define (funpower f n) (lambda (x) x)) ( (funpower sqrt 2) 16) ; should evaluate to 2 ((funpower double 0) 3) ; should evaluate to 3 (define (encode n) (lambda (f) f)) (((encode 2) sqrt) 16) ; should evaluate to 2 (define (decode n) 0) (decode (encode 5)) ; should evaluate to 5 (2pts) Define a function decode in Racket. decode should take the result of encode applied to a non- negative integer and gives back the non-negative integer. For example (decode (encode 3)) should evaluates to 3. #lang racket (define (double x) (* 2 x)) ; a helper function for testing code. (define (funpower f n) (lambda (x) x)) ( (funpower sqrt 2) 16) ; should evaluate to 2 ((funpower double 0) 3) ; should evaluate to 3 (define (encode n) (lambda (f) f)) (((encode 2) sqrt) 16) ; should evaluate to 2 (define (decode n) 0) (decode (encode 5)) ; should evaluate to 5 (2pts) Define a function decode in Racket. decode should take the result of encode applied to a non- negative integer and gives back the non-negative integer. For example (decode (encode 3)) should evaluates to 3