結果

問題 No.677 10^Nの約数
ユーザー mai
提出日時 2018-09-25 23:25:30
言語 Whitespace
(0.4)
結果
RE  
実行時間 -
コード長 4,360 bytes
コンパイル時間 37 ms
コンパイル使用メモリ 6,948 KB
実行使用メモリ 6,824 KB
最終ジャッジ日時 2025-01-01 00:37:53
合計ジャッジ時間 792 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 12 RE * 5
権限があれば一括ダウンロードができます

ソースコード

diff # 

func:swap(p,q){let:t;t=*p;*p=*q;*q=t;}func:qsort(begin,end){if(end-begin<=1){return;}let:pv(begin),it(begin+1);while(it<end){if(*pv>*it){swap(pv+1,it);swap(pv,pv+1);pv+=1;}it+=1;}qsort(begin,pv);qsort(pv+1,end);}func:pow(x,p){if(p<=0){return:1;}else{return:x*pow(x,p-1);}}func:main(){let:n,m,x(1);let:stk[199],cnt(0);m=n=__geti();while(m>=1){x*=10;m-=1;}let:i(0),j(0);while(i<=n){j=0;while(j<=n){stk[cnt]=pow(2,i)*pow(5,j);cnt+=1;j+=1;}i+=1;}stk[cnt]=0;qsort(&stk,&stk+cnt);i=0;while(i<cnt){if(stk[i]!=stk[i+1]){__puti(stk[i]);__putc('\n');i+=1;}}}
0