From 00d4e98ba153c1f9beeae45c3ab50041ad3c34ef Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sat, 9 Mar 2024 16:08:03 -0500
Subject: Extra lambda test

---
 test/lambdas.tm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'test')

diff --git a/test/lambdas.tm b/test/lambdas.tm
index d896ea4b..ca2acb5d 100644
--- a/test/lambdas.tm
+++ b/test/lambdas.tm
@@ -24,3 +24,10 @@ func suffix_fn(fn:func(t:Text)->Text, suffix:Text)->func(t:Text)->Text
 >> shout2 := suffix_fn(Text.upper, "!")
 >> shout2("hello")
 = "HELLO!"
+
+func mul_func(n:Int, fn:func(x:Int)->Int)-> func(x:Int)->Int
+	return func(x:Int) n*fn(x)
+
+>> abs100 := mul_func(100, Int.abs)
+>> abs100(-5)
+= 500
-- 
cgit v1.2.3