結果

問題 No.677 10^Nの約数
コンテスト
ユーザー mai
提出日時 2018-09-25 23:31:09
言語 Whitespace
(0.4)
結果
AC  
実行時間 4 ms / 2,000 ms
コード長 3,982 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 39 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2025-01-01 00:37:54
合計ジャッジ時間 755 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 17
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

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;let:stk[399],cnt(0);n=__geti();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;cnt-=1;while(i<=cnt){__puti(stk[i]);__putc('\n');i+=1;}}
0