Anonymous user
Apply a callback to an array: Difference between revisions
Added BBC BASIC
No edit summary |
(Added BBC BASIC) |
||
Line 159:
2 4
3 9</lang>
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
<lang bbcbasic> DIM a(4)
a() = 1, 2, 3, 4, 5
PROCmap(a(), FNsqrt())
FOR i = 0 TO 4
PRINT a(i)
NEXT
END
DEF FNsqrt(n) = SQR(n)
DEF PROCmap(array(), RETURN func%)
LOCAL I%
FOR I% = 0 TO DIM(array(),1)
array(I%) = FN(^func%)(array(I%))
NEXT
ENDPROC
</lang>
Produces this output:
<pre>
1
1.41421356
1.73205081
2
2.23606798
</pre>
=={{header|Brat}}==
| |||