Problem 5
This commit is contained in:
parent
b3be6031be
commit
0029a9805f
28
problem5.go
Normal file
28
problem5.go
Normal 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)))
|
||||||
|
}
|
||||||
Loading…
x
Reference in New Issue
Block a user