RosettaCodeData/Task/Stern-Brocot-sequence/360-Assembly/stern-brocot-sequence-2.360

7 lines
124 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
k=2; i=1; j=2;
while(k<nn);
k++; sb[k]=sb[k-i]+sb[k-j];
k++; sb[k]=sb[k-j];
i++; j++;
}