Jensen's Device: Difference between revisions
Content added Content deleted
(add m4) |
(J) |
||
| Line 234: | Line 234: | ||
</pre> |
</pre> |
||
Output: 5.187377517639621 |
Output: 5.187377517639621 |
||
=={{header|J}}== |
|||
<lang J>jensen=:monad define |
|||
'name lo hi expression'=:y |
|||
temp=. 0 |
|||
for_n.lo (i.@>:@-~ + [) hi do. |
|||
(name)=. n |
|||
temp=.temp+".expression |
|||
end. |
|||
)</lang> |
|||
jensen 'i';1;100;'1%i' |
|||
5.18738 |
|||
=={{header|M4}}== |
=={{header|M4}}== |
||