Problem 5

This commit is contained in:
Dustin Pianalto 2020-09-02 09:15:00 -08:00
parent b3be6031be
commit 0029a9805f

28
problem5.go Normal file
View File

@ -0,0 +1,28 @@
package main
import "log"
func cons(a, b int) func(func(int, int) (int, int)) (int, int) {
return func(f func(int, int) (int, int)) (int, int) {
return f(a, b)
}
}
func test(a, b int) (int, int) {
return a, b
}
func cdr(f func(func(int, int) (int, int)) (int, int)) int {
_, b := f(test)
return b
}
func car(f func(func(int, int) (int, int)) (int, int)) int {
a, _ := f(test)
return a
}
func main() {
log.Println(car(cons(3, 4)))
log.Println(cdr(cons(3, 4)))
}