Не знаю, как в Висте, а в XP свернутые ресурсоемкие программы очень долго в оперативу заново заливаются. Поэтому предпочитаю все держать развернутым, если памяти достаточно.
Чота я не вижу в этом ролике 3D. Если бы камера во время анимации крутилась вокруг стенда, — было бы видно. А так, это вполне может быть плоская картинка в пространстве.
ну вот исписал бы отсилы пол-листа, и без никаких формул из комбинаторики
да, погрешность в 20%, но мне бы немного усталости с глаз, да в руки тетрадь, ане notepad, и всё прекрасно считается за 10минут
Пардон, когда я начал писать свой коммент, ваш ещё просто небыл написал.
Да, мы сделали одинаково ..)
А можно ещё укоротить, если заюзать select и size
ну коль уж пошла такая пьянка…
(я имею ввиду, что наши коды здесь просто ужасны вообще в силу своей тормознутости, ибо тут все стремятся сейчас абы их код был короче, ане оптимальней)
ловите:
(print
(length
(remove-duplicates
(loop for i from 2 to 100
append (loop for j from 2 to 100
collect (expt i j)))))
Он хотел бы сам запостить, да не зареган, а на инвайт у меня сил маловато ..)
М? Не так все просто ,.)
всю ночь пыхтел ..)
1: 001: 3: 3: 9
2: 002 011: 3+3: 6: 36
3: 003 012 111: 3+6+1: 10: 100
4: 004 013 022 112: 3+6+3+3: 15: 225
5: 005 014 023 113 122: 3+6+6+3+3: 21: 441
6: 006 015 024 033 114 123 222: 3+6+6+3+3+6+1: 28: 784
7: 007 016 025 034 115 124 133 223: 3+6+6+6+3+6+3+3: 36: 1296
8: 008 017 026 035 044 116 125 134 224 233: 3+6+6+6+3+3+6+6+3+3: 45: 2025
9: 009 018 027 036 045 117 126 135 144 225 234 333: 3+6+6+6+6+3+6+6+3+3+6+1: 55: 3025
10: 019 028 037 046 055 118 127 136 145 226 235 244 334: 6+6+6+6+3+3+6+6+6+3+6+3+3: 63: 3969
11: 029 038 047 056 119 128 137 146 155 227 236 245 335 344: 6+6+6+6+3+6+6+6+3+3+6+6+3+3: 69: 4761
12: 039 048 057 066 129 138 147 156 228 237 246 255 336 345 444: 6+6+6+3+6+6+6+6+3+6+6+3+3+6+1: 73: 5299
13: 049 058 067 139 148 157 166 229 238 247 256 337 346 355 445: 6+6+6+6+6+6+3+3+6+6+6+3+6+3+3: 75: 5625
14: 059 068 077 149 158 167 239 248 257 266 338 347 356 446 455: 6+6+3+6+6+6+6+6+6+3+3+6+6+3+3: 75: 5625
10+136+666+2080+5050+8730+10924=812+7130+19654=7942+19654=20596 *2=41192 +5625= 45817 -1=45816
ну вот исписал бы отсилы пол-листа, и без никаких формул из комбинаторики
да, погрешность в 20%, но мне бы немного усталости с глаз, да в руки тетрадь, ане notepad, и всё прекрасно считается за 10минут
Да, мы сделали одинаково ..)
А можно ещё укоротить, если заюзать select и size
n,s=0,'000000'
while s.size<7
s.succ!
n+=1 if s[0]+s[1]+s[2]==s[3]+s[4]+s[5]
end
p n
(я имею ввиду, что наши коды здесь просто ужасны вообще в силу своей тормознутости, ибо тут все стремятся сейчас абы их код был короче, ане оптимальней)
ловите:
n,s=0,'000000'
while s.size