Find squares n where n+1 is prime: Difference between revisions
Content added Content deleted
(→{{header|ALGOL W}}: No need to calculate root 1000) |
(Added VTL-2) |
||
Line 1,186: | Line 1,186: | ||
576 |
576 |
||
676</pre> |
676</pre> |
||
=={{header|VTL-2}}== |
|||
{{Trans|TinyBASIC}} |
|||
<syntaxhighlight lang="vtl2"> |
|||
1000 ?=1 |
|||
1010 N=2 |
|||
1020 M=4 |
|||
1030 J=M+1 |
|||
1040 #=2000 |
|||
1050 #=P=1=0*1080 |
|||
1060 $=32 |
|||
1070 ?=M |
|||
1080 N=N+2 |
|||
1090 M=N*N |
|||
1100 #=M<1000*1030 |
|||
1110 #=9999 |
|||
2000 R=! |
|||
2010 P=0 |
|||
2020 I=3 |
|||
2030 #=J/I*0+%=0*R |
|||
2040 I=I+2 |
|||
2050 #=I*I<J*2030 |
|||
2060 P=1 |
|||
2070 #=R |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
1 4 16 36 100 196 256 400 576 676 |
|||
</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |