| [ CnUnix ] in KIDS 글 쓴 이(By): ksangeun (우주인) 날 짜 (Date): 2004년 11월 10일 수요일 오전 10시 59분 14초 제 목(Title): [Q] PERL... Perl로 만든 배열이 3개 있는데, 3개의 배열에 모두 속하는 교집합 원소를 골라 내려면 어떻게 하는게 쉬울까요? 3중 foreach문을 돌리는것 말고, perl에 내장된 뭔가 쉬운 기능이 없을까요? ======================================================================= main(){int a=107,j=2;while(a>-5000){a=a>0?a:99;putchar(a); a=j==49?46:a-j;j*=j;j=j%256?j:7;j*=j%16?1:-1;};printf("%cm\n",111);}; ======================================================================= |