ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Victor Bazhenov                      2:5022/70.1    05 Sep 2001  15:00:52
 To : Misha Spitsin
 Subject : Вычислить 100!
 -------------------------------------------------------------------------------- 
 

 
 03 Sep 2001 22:18:57 you wrote:
 
  MS>      Как сделать сабж, но пpи этом полyчить все цифpы выpажения, а не
  MS> запись в иде 9.33e157?
 
 Самое простое, что приходит на ум.
 
 Haskell:
 
 fact            :: Integer -> Integer
 fact 0          =  1
 fact n          =  n * fact (n - 1)
 
 Hugs:
 
 Main> fact 100
 
 9332621544394415268169923885626670049071596826438162146859296389521759999322991 
 5608941463976156518286253697920827223758251185210916864000000000000000000000000
 
 Main>
 
 --
     Victor
 
 --- Frontier
  * Origin: Per aspera ad astra! (2:5022/70.1)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Вычислить 100!   Misha Spitsin   03 Sep 2001 22:18:57   Вычислить 100!   Max Alekseyev   03 Sep 2001 17:37:14   Re: Вычислить 100!   Sergey Goltsov   04 Sep 2001 13:09:47   Вычислить 100!   Nickita A. Startcev   04 Sep 2001 22:58:06   Вычислить 100!   Alex Derbeev   06 Sep 2001 01:03:00   Re: Вычислить 100!   Alexey Desyatnik   06 Sep 2001 13:40:28   Вычислить 100!   Victor Bazhenov   05 Sep 2001 15:00:52   Re: Вычислить 100!   Yuri Kostylev   13 Sep 2001 10:26:10   Вычислить 100!   Andrew Kuksov   05 Oct 2001 19:45:05