RosettaCodeData/Task/Apply-a-callback-to-an-array/FBSL/apply-a-callback-to-an-array-1.fbsl

#APPTYPE CONSOLE

FOREACH DIM e IN MyMap(Add42, {1, 2, 3})
	PRINT e, " ";
NEXT

PAUSE

FUNCTION MyMap(f, a)
	DIM ret[]
	FOREACH DIM e IN a
		ret[] = f(e)
	NEXT
	RETURN ret
END FUNCTION

FUNCTION Add42(n): RETURN n + 42: END FUNCTION