First 9 prime Fibonacci number: Difference between revisions
Add Comal
(Added Sidef) |
Not a robot (talk | contribs) (Add Comal) |
||
Line 504:
1597
28657
514229</pre>
=={{header|Comal}}==
<lang comal>0010 FUNC prime(n) CLOSED
0020 IF n<4 THEN RETURN n=2 OR n=3
0030 IF n MOD 2=0 OR n MOD 3=0 THEN RETURN FALSE
0040 d:=5
0050 WHILE d*d<=n DO
0060 IF n MOD d=0 THEN RETURN FALSE
0070 d:+2
0080 IF n MOD d=0 THEN RETURN FALSE
0090 d:+4
0100 ENDWHILE
0110 RETURN TRUE
0120 ENDFUNC prime
0130 //
0140 found:=0
0150 a:=1;b:=1
0160 WHILE found<9 DO
0170 IF prime(a) THEN
0180 PRINT a
0190 found:+1
0200 ENDIF
0210 c:=a+b;a:=b;b:=c
0220 ENDWHILE
0230 END</lang>
{{out}}
<pre>
2
3
5
13
89
233
1597
28657
514229</pre>
| |||