RosettaCodeData/Task/Closures-Value-capture/Haskell/closures-value-capture-4.hs

> :t fs
fs :: [b -> Integer]
> map ($ ()) fs
[1,4,9,16,25,36,49,64,81,100]
> fs !! 9 $ ()
100
> fs !! 8 $ undefined
81
Initial data commit 2023-07-01 11:58:00 -04:00			`> :t fs`
			`fs :: [b -> Integer]`
			`> map ($ ()) fs`
			`[1,4,9,16,25,36,49,64,81,100]`
			`> fs !! 9 $ ()`
			`100`
			`> fs !! 8 $ undefined`
			`81`