Компромис между скоростью и прекалком:
Код:10 DEF FN c$(a)=z$(1+a TO 4+a) 20 DEF FN b$(n)=FN c$(INT (n/16)*4)+FN c$((n-INT (n/16)*16)*4) 25 LET z$="0000000100100011010001010110011110001001101010111100110111101111"
Компромис между скоростью и прекалком:
Код:10 DEF FN c$(a)=z$(1+a TO 4+a) 20 DEF FN b$(n)=FN c$(INT (n/16)*4)+FN c$((n-INT (n/16)*16)*4) 25 LET z$="0000000100100011010001010110011110001001101010111100110111101111"
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием