Matematické Fórum

už 30! je řádu 1032 a spolehlivě zjistit všechny jeho číslice s běžnými nástroji je obtížné

Asi tohle myslel.

Aha, moje chyba, musím se přesněji vyjadřovat. Petr Koubský se na ty běžné nástroje odkazoval jen co se týče číslic 30!, já jsem to vztáhl na celou úlohu nalezení nejmenšího n, kde n! není Harshad číslo. To už právě s kalkulačkou jen tak nejde.

↑ Pavel Brožek:: Sice už jsem to smazal, protože jsem to psal přímo do konzole, ale zkusil jsem to napsat znovu. Knihovny pro velká čísla netřeba, Python s nimi umí pracovat. A měl jsem štěstí, vyšlo mě to přesně na deset řádků :-). Mělo by to přitom být „pythonic”.

def fac(n):
    return 1 if n == 0 else n * fac(n-1)
    
def sumOfDigits(number):
    return sum([int(x) for x in str(number)])
    
for n in range(1, 500):
    fact = fac(n)
    if fact % sumOfDigits(fact) != 0:
        print(n)

EDIT: Kdyby měl Python nějakou standardní funkci „product” — totéž co „sum”, akorát pro násobení — tak by se to dalo zkrátit takto :-).

for n in range(1, 500):
    fact = product(range(1, n+1))
    if fact % sum([int(x) for x in str(fact)]) != 0:
        print(n)

↑ Pavel Brožek: samozřejmě jsem se musel trochu zamyslet, kolik to bude mít na konci nul, a jestli počet cifer sedí

btw jen tak pro zajímavost, na jeden řádek v mojí oblíbený mathematice:)

Select[Range@500, Not@Divisible[#!, Total@IntegerDigits [#!]] &]

No dobře, tak jsem to v Pythonu taky naházel na jeden řádek :-) (+ jeden import)

from operator import mul
print([x[1] for x in [(reduce(mul, range(1, n+1)), n) for n in range(1, 500)] if x[0] % sum(map(int, str(x[0]))) != 0][0])

A nepočítá se vám tam ten faktoriál vždycky dvakrát? :)

↑ Pavel Brožek: někdy nejsou zrovna nejefektivnější, viz např. http://www.dbaileyconsultancy.co.uk/m_p … mance.html

↑ Stýv:

Díky za odkaz.

Zmiňují tam Mathematica Workbench, tak jsem si vzpomněl, že jsem se jednou snažil zjistit, jestli se nedá nějak legálně získat (samozřejmě bez toho, abych musel platit £95.00, jak je u studentské licence uvedeno). Nevíš náhodou, jestli k tomu fakulta má licenci podobně jako na Mathematicu? Na internetu jsem o tom nic nenašel, ale nijak víc jsem to nezjišťoval.

Omlouvám se, že ruším, dnes je opravdu potěšení číst výsostné téma.

Kolega přes PM se dotazuje:

bonifax napsal(a):

nevěděl jsem do jakého topicu to zařadit, a nikde jsem to nenašel, chtěl bych se zeptat, kde bych našel nástroj, pokud takovýto nástroj vůbec je, abych mohl rychle narýsovat třeba krychli, označit body, udělat přímky a vložit do tématu?

Netuším, děkuji za pomoc.

Jelena.

↑ Ondřej:

Děkuji :-) Já jsem spíš překládala.

----------------------------------

Doplňovala jsem odkazy v 1. příspěvku, tak jsem doplnila i přechod na online kreslení, ať se s tím trápí kolega Kondr, ne já.

Byla jsem vyslána s depeši z Lážova, ještě jsem nedoručila, ale při hledání adresátů jsem narazila na fóru Mechmatu MGU na :-)

↑ Alivendes:

naše fórum? :-) V čem se libí více - ve znalosti zlomků nebo v zacházení s mateřským jazykem? (univerzitní kolega v odkazu totiž bojuje na všech frontách a vítězí).

↑ Hanis:

gratulace :-)

Změny budou - my zítra půjdeme pomalovat zeď ve třídě 1.A (nebýt Tebe, tak asi takové plány nemáme, děkuji ještě jednou).