Re: Tutorial for Mick-Lisp (1st session)

Article View: fj.lang.lisp

Article #88

#88

From: Akio Tokaji
Date: Fri, 05 Apr 1996 00:00

43 lines
1616 bytes

$B8M3a!wIY;NDL$G$9!#(B

Mick-Lisp $B$N%A%e!<%H%j%"%k$NBh8^2sL\$G$9!#(B
$B:#2s$O!"&P(B $B$r5a$a$k4X?t$rDj5A$7$F$_$^$7$?!#(B

($B=PE5!'!X%Q%=%3%s$G2r$/?t3X%Q%:%k!Y!"(Bp. 102
       L.$B%i!<%@!"(BD.$B%M%k%=%s(B $BCx!";32<NQHO(B $B4FLu!"3$J8F24)(B)

$B0J2<$N$h$&$J$3$H$,8@$($k$_$?$$$G$9!#IT;W5D$@$!(B(@o@)$B!#(B


$B&P(B/4 = 1 - 1/3 + 1/5 - 1/7 + ... 


(defun ::pi (n)
  (let ( result sign )
    (setq result 0)
    (setq sign 1)
    (for ((i n))
      (setq i (1+ (* i 2)))
      (setq result (+ result (* sign (/ 1.0 i))))
      (setq sign (* sign -1))
      )
    (* result 4)
    )
  )



(::pi 10)
3.0418396189294032

(::pi 1000)
3.1405926538397941


-- 
/**********************************************************************
 * Akio TOKAJI (tokaji@db.nm.fujitsu.co.jp) / Fujitsu Limited
 *
 *       "Imagination is more important than knowledge"
 *                  (fortune cookie's message)
 **********************************************************************/

Technical Details

Message-ID: <TOKAJI.96Apr5223848@zaurus.db.nm.fujitsu.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <TOKAJI.96Mar28103012@zaurus.db.nm.fujitsu.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 1421c0,62f92a5e13c3660e
X-Google-Attributes: gid1421c0,public
X-Google-Thread: ff358,62f92a5e13c3660e
X-Google-Attributes: gidff358,public
From: tokaji@db.nm.fujitsu.co.jp (Akio Tokaji)
Subject: Re: Tutorial for Mick-Lisp (1st session)
Date: 1996/04/05
Message-ID: <TOKAJI.96Apr5223848@zaurus.db.nm.fujitsu.co.jp>
X-Deja-AN: 145946545
distribution: fj
references: <TOKAJI.96Mar28103012@zaurus.db.nm.fujitsu.co.jp>
organization: Fujitsu Ltd., Shin-yokohama, Kanagawa, Japan
newsgroups: fj.lang.lisp,fj.editor.emacs

Reply to Parent Message