Я в недавнем посте в одном месте наврал, а меня не поправили. Если мы возьмем категорию, в которой объекты - натуральные числа, а стрелка соединяет два числа, когда первое делится на второе (это обычное частично упорядоченное множество), и мы хотим определить экспоненциал:
(
Read more... )
Comments 9
Reply
functor of * x A.
Из Хагино:
( ... )
Reply
A×B = (A/gcd(A,B))*gcd(A,B)*(B/gcd(A,B))
Я думаю, exp(A,B) = B/gcd(A,B)
Reply
B/gcd(A,B) для exp не годится. Тот же пример: A=70, B=100. B/gcd(A,B) = 10, но Ax10 = 70, не делится на B, а должно. Правильное значение exp(70,100)=100.
Reply
a >= b ~ as % bs == 0
exists a < b ~ as % bs != 0
min(a, b) ~ gcd(as, bs)
max(a, b) ~ lcm(as, bs)
a + b ~ as * bs
a - b ~ as / bs
if(a < b, b, 0) ~ ?
70 = (1 0 1 1)
100 = (2 0 2 0)
10 = (1 0 1 0) = gcd(a, b)
7 = (0 0 0 1) = a / gcd(a, b)
10 = (1 0 1 0) = b / gcd(a, b)
100 = (2 0 2 0) = exp(a, b)
30 = (1 1 1 0)
35 = (0 0 1 1)
5 = (0 0 1 0) = gcd(a, b)
6 = (1 1 0 0) = a / gcd(a, b)
7 = (0 0 0 1) = b / gcd(a, b)
7 = (0 0 0 1) = exp(a, b)
http://codepad.org/W9ihbNT2
Reply
forall a >= b ~ as % bs == 0
Reply
Некоторое упрощение скрипта. Теперь я пытаюсь только найти представление if(a < b, b, 0) через min, max, _+_, _-_. Попробуй запустить под нормальным хаскеллом, у меня на кодепаде таймаут.
http://codepad.org/q17DtVh5
Reply
Осмысленные арифметические операции тут получается только умножение и деление, как сформулировал udpn в своём посту. И получается что нельзя, см. http://udpn.livejournal.com/69157.html?thread=888869#t888869.
А в конце там человек вообще офигенное доказательство через непрерывность привёл.
Reply
Reply
Leave a comment