0分求助

大佬们，我的代码再一次出bug了，可以帮我看看吗，谢谢

#include<bits/stdc++.h>
using namespace std;
int n,a[10000][10000],s[10000],c[10000],q;
int main(){
    cin>>n;
    a[1][1]=1;
    s[1]=1;
    c[1]=1;
    q=1;
    for(int i=2;i<=n;i++){
        c[i]=c[i-1];
        for(int j=1;j<=c[i];j++){
            a[i][j]=a[i-1][j]*i;
        }
        for(int j=1;j<c[i];j++){
            if(a[i][j]>9) a[i][j+1]=a[i][j]/10,a[i][j]%=10;
        }
        if(a[i][c[i]]>9) a[i][c[i]]-=10,a[i][++c[i]]=1;
        for(int j=1;j<=q;j++){
            s[j]+=a[i][j];
        }
        for(int j=1;j<q;j++){
            if(s[j]>=10) s[j+1]++,s[j]-=10;
        }
        if(s[q]>=10) s[q]-=10,s[++q]=1;
    }
    for(int i=q;i>=1;i--){
        cout<<s[i];
    }
}

可以的话帮我看看这个