Advertisement
TimJSwan

Tim Swan's CARPUZZ in ti-Basic

Mar 28th, 2015
340
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.73 KB | None | 0 0
  1. "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str1
  2. 1→N
  3. {8,16→dim([A]
  4. Fill(0,[A]
  5. ClrHome
  6. 14→L₁(1)
  7. 4→L₂(1)
  8. 3→L₃(1)
  9. For(B,0,2
  10. Output(4,14+B,0
  11. 1→[A](4,14+B
  12. End
  13. For(A,1,40
  14. randInt(1,15→X
  15. randInt(1,7→Y
  16. randInt(2,5→L
  17. If randInt(0,1)
  18. –L→L
  19. If L>0
  20. Then
  21. If X+L-1≤16
  22. Then
  23. 1→T
  24. For(B,0,L-1
  25. If [A](Y,X+B)>0
  26. 0→T
  27. End
  28. If T
  29. Then
  30. N+1→N
  31. X→L₁(N
  32. Y→L₂(N
  33. L→L₃(N
  34. For(B,0,L-1
  35. Output(Y,X+B,sub(Str1,N,1
  36. N→[A](Y,X+B
  37. End
  38. End
  39. End
  40. Else
  41. If Y-L-1≤8
  42. Then
  43. 1→T
  44. For(B,0,abs(L)-1
  45. If [A](Y+B,X)>0
  46. 0→T
  47. End
  48. If T
  49. Then
  50. N+1→N
  51. X→L₁(N
  52. Y→L₂(N
  53. L→L₃(N
  54. For(B,0,abs(L)-1
  55. Output(Y+B,X,sub(Str1,N,1
  56. N→[A](Y+B,X
  57. End
  58. End
  59. End
  60. End
  61. End
  62. ClrHome
  63. 1→A
  64. –13→B
  65. prgmCARPUZZR
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement