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