# I numeri degli inni 2

Jan 25th, 2019
1,416
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. 04 DIM X(10):s=0:print "soluzione quickest and uglyest v2":n=ti
2. 10 for a=1to3
3. 20 for b=0to9
4. 25 if b=a goto150
5. 30 for c=0to9
6. 31 if a=3 then if b>3 goto 165
7. 32 if c=a goto140
8. 33 if c=b goto140
9. 35 r=0:if c>4then f=2*c-10:r=1:goto38
10. 36 f=2*c
11. 37 if f=a goto140
12. 38 if f=b goto140
13. 39 if f=c goto 140
14. 40 if b>=5then e=2*b-10+r:r=1:goto42
15. 41 e = 2*b+r:r=0
16. 42 if e=a goto140
17. 43 if e=b goto140
18. 44 if e=c goto140
19. 45 if e=f goto140
20. 50 d=2*a+r: if d>6goto140
21. 51 if d<3goto140
22. 52 if d=a goto140
23. 53 if d=b goto140
24. 54 if d=c goto140
25. 55 if d=f goto140
26. 56 if d=e goto140
27. 62 r=0:if c<4 then i =3*c:goto92
28. 72 if c<7then i=3*c-10:r=1:goto92
29. 82 i = 3*c-20: r=2
30. 92 if i=a goto140
31. 93 if i=b goto140
32. 94 if i=c goto140
33. 95 if i=d goto140
34. 96 if i=e goto140
35. 97 if i=f goto140
36. 102 h=3*b+r:r=0:if h>=20then h=h-20:r=2:goto107
37. 105 if h>=10then h=h-10:r=1
38. 107 if h=a goto140
39. 108 if h=b goto140
40. 109 if h=c goto140
41. 110 if h=d goto140
42. 111 if h=e goto140
43. 112 if h=f goto140
44. 113 if h=i goto140
45. 117 g=a*3+r
46. 118 if g=a goto140
47. 119 if g=b goto140
48. 120 if g=c goto140
49. 121 if g=d goto140
50. 122 if g=e goto140
51. 123 if g=f goto140
52. 124 if g=h goto140
53. 125 if g=i goto140
54. 128 S=S+1:X(S)=100*a+10*b+c
55. 140 next c
56. 150 next b
57. 160 next a
58. 165 n=ti-n
59. 170 for i = 1 to S
60. 190 print X(i);X(i)*2;X(i)*3
61. 200 next
62. 210 print "run time:";n/60