TSfree 発言

こんにちわ、Ｙさです。
(awkなので部屋変えます)


ねこ丸 writes:

>   結城さんの日記経由で http://cm.xrea.cc/ にたどりつきました。
> 
>   昔 BASIC で1画面プログラムとか1行プログラムとか言っていた頃を思い出し
> たのでご紹介。


昔、nifty(FGALTS)にアップしたことがあったのを思い出しました。
-----
BEGIN{ srand(); q[z=int(9*rand())+1]=i=1; while(i<=3) if(!q[p=int(10*rand())]){
  q[p]=++i; z=z*10+p;} c=1; print "\n\n+++ Hit & Blow +++   (PUSH ENTER)\n"; }
{ if((n=int(0+$0))>=1023 && n<=9876){
  v=0; i=4; while(i){ v+=(q[p=n%10]==i--)?10:(q[p])?1:0; n=int(n/10); }
  if(v==40) exit; printf("%14s## %2d Hit %2d Blow\n", " ", v/10, v%10);
  if(++c>10) exit; } printf("[%2d] >> ", c); }
END  { printf("\n  %s  (%d)\n", (v==40)?"Congratulations !!":"Over times", z);}
-----