RosettaCodeData/Task/Function-definition/TXR/function-definition-1.txr

5 lines
80 B
Plaintext

@(define multiply (a b out))
@(bind out @(* a b))
@(end)
@(multiply 3 4 result)