ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Yuri Kostylev                        2:5050/61      13 Sep 2001  10:26:10
 To : Victor Bazhenov
 Subject : Re: Вычислить 100!
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: news@udmts.elektra.ru
 .RFC-NNTP-Posting-Date: 13 Sep 2001 06:26:10 GMT
 From: Yuri Kostylev <yuri@yk.udmts.elektra.ru>
  MS>>  Как сделать сабж, но пpи этом полyчить все цифpы 
  MS>> выpажения, а не  запись в иде 9.33e157? 
 
  VB>  Самое простое, что приходит на ум. 
  VB>  Haskell: 
  VB>  fact :: Integer -> Integer  fact 0 = 1  fact n = n 
  VB> * fact (n - 1) 
  VB>  Hugs: 
 
 Main>>  fact 100 
 
  VB> 
 
 9332621544394415268169923885626670049071596826438162146859296389521759999322991 
 
  VB> 
 
 5608941463976156518286253697920827223758251185210916864000000000000000000000000 
 clisp:
 
 [1]> (! 100)
 
 93326215443944152681699238856266700490715968264381621468592963895217599993
 22991560894146397615651828625369792082722375825118521091686400000000000000000000
 0000
 
 [2]>
 
 :)
 
  -- но она была дева и блудница, иначе говоря вечная женственность. 
  И я содрогался 
 --- ifmail v.2.14.os-p7
  * Origin: Udmts InterNetNews site (2:5050/61@fidonet)
 
 

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

Тема:    Автор:    Дата:    Вычислить 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