written in C
my task was to make a script that reads [m;n]
and then does
m,m+1,m+2,...,m+n;
and prints only the numbers that have a residue equal to 3 or 6 after diving the m`s by 7
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
int main ()
{
int array[100],array3[100];
int n,i,y,m;
y=1;
printf("Type m\t");
scanf("%d",&m);
printf("Type n\t");
scanf("%d",&n);
for (i=0;i<=n;i++)
{
array[i]=m+i;
}
for (i=0;i<=n;i++)
{
if(3==array[i]%7)
{
array[i]=array3[y];
y++;
}
else
if (6==array[i]%7)
{
array[i]=array3[y];
y++;
}
}
for (y=1;y<=n;y++)
printf("%d\n",array3[y]);
>>11 >>>f(1,1000)
...
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
File "<stdin>", line 3, in f
RuntimeError: maximum recursion depth exceeded
>>25
Yet, most serious Common Lisp implementations do provide TCO. Just because it's not specified in the standard (as they don't want to force the implementor's hands), doesn't mean any implementation worth its salt won't implement it. However, if you're talking about the Lisp family in general, then having TCO at all can be quite uncertain, especially in some ancient Lisps or some recent, but quite dumb ones.