home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Anon / Puzz1 (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1989-07-20  |  431 b   |  16 lines
  1.  >Puzz1
  2.  Aim is to remove 100 numbers, and be left with biggest number possible
  3.  Not yet solved, but suspect very obvious answer!
  4. A$="":
  5.  SC(9)
  6.  A=1 
  7.  A=0 
  8. T=0:I=1
  9. A,I+1)
  10. ;"   ";T-1
  11.  T(9)
  12. 0,T-1);:T(A)=2-T(A)
  13.  B=1 
  14. A$,B,1)))=0 
  15. A$,B,1); 
  16.