HISUI.SCM   

<

^

>



                               (define e
                        define)        (e g 0)(
                     e h    0)         (   e   w
                 set!)        (   e    l      lambda
               )(     e       @    display   );     i
             (e         t  magnitude      )(e(!     .
             x     )     (@""                  )) (e %
           modulo   )(e m        make-rectangular )  (e
          j      00  )       (e b                begin
         )         (e      c                          0)(
        e         ?     map         )  ( e    a;         ()
       apply     )    (e         (   r  x  )    (       do ((
      z x  (+(* z    z        )   x   )  )  (     i    0  (+  i
     1 )       )   )(          (  or   ( >(  t     z     )  2) (>
    i 26      ))  i            )   )   )( !)  (e    n     (b let*)
    ) (e      :  (             *   5    7 997  97    )     )(  e d(
    current-time)    )         (   e    k* ( *  89   991    73 3  ))
    (   !     :)     (e       ($  ) (   list  ( m g  j )(   m g c  )(
   m    h    j)       (       m   h c   )( m   (/(+ g   h)  2  )(   /
   (     + j           c     )2)))  )  (e (_    x y)(*( -   x  y)
   (                    -   x y)))(e   ~  (*    120))(  e ( &   x
   )                     (integer->char   (      if(>  x 25) (
   *                      8 4)(+ 65              x)))  )   (e (u
   )(                      n((f(?(l              (p)(  r     p) ;
    )                       ($)))(y              (/(a  +       f )5
    ))                       )(>(/(a              +(?(  l       (x )
     (_           x         y))f)  )5                  )~         ) )
     )(  e         (         v k                       )          (k c
      j  24         (          l(                    y) (          b( k
       g  h        79(          l(       x)(@      (&  ( r(         m  x
        y)  )        )))         )(              !)     (  @        "\n")
        )))) (e      (k u         v s           f)       (  do      (  (;
            i 00      (+ i 1       )))         (  (      >= i i     s)  )(
             f(+ u     (/  (*(      - v u)i)(+ s   -1     )) ) ))   )(   e(
              q i)(     +(  *(b(     w d    (%  (   +(    * k*  d)  1     )
              :  ))(/    d  :  ))(    - 1    i)  )  i))   (e(o)  (n (
               (   s(q   .1) )   )(   w j(   q(- 00  1 )   ) )(   w c
                      (+  j s    ))(w  g(q(  - 01))) (  w h(  +    g
                        ( *      s 1.5) )) ) )   ( o)(   do   (
                         )((         u )(v  k)      )     (
                          o)                 )

  NFO RAR ZIP DETAILS /
2016-11-24