Jensen's Device: Difference between revisions
Content added Content deleted
m (Fixed lang tags.) |
(→{{header|J}}: local assignment, spacing, lang tags) |
||
| Line 254: | Line 254: | ||
=={{header|J}}== |
=={{header|J}}== |
||
'''Solution:''' |
|||
<lang |
<lang j>jensen=: monad define |
||
'name lo hi expression'= |
'name lo hi expression'=. y |
||
temp=. 0 |
temp=. 0 |
||
for_n.lo (i.@>:@-~ + [) hi do. |
for_n. lo (i.@>:@-~ + [) hi do. |
||
(name)=. n |
(name)=. n |
||
temp=.temp+".expression |
temp=. temp + ".expression |
||
end. |
end. |
||
)</lang> |
)</lang> |
||
'''Example:''' |
|||
jensen 'i';1;100;'1%i' |
<lang j> jensen 'i';1;100;'1%i' |
||
5.18738 |
5.18738</lang> |
||
=={{header|M4}}== |
=={{header|M4}}== |
||