sasaki-shigeo

import scala.util.parsing.combinator._

abstract class XML
case class Element(name: String, attributes: Map[String, String], contents: Seq[XML]) extends XML
case class Letter(c: Char) extends XML
case class CDATA(text: String) extends XML
case class CharEntity(c: Char) extends XML
case class Entity(c: Char) extends XML
case class Comment(text: String) extends XML

sasaki-shigeo

import static java.lang.Math.*;

Math.PI   // 円周率
Math.E    // 自然対数の底

Integer.MAX_VALUE   // int の最大値
Integer.MIN_VALUE   // int の最小値
Long.MAX_VALUE      // long の最大値
Long.MIN_VALUE      // long の最小値
Byte.MAX_VALUE      // byte の最大値

sasaki-shigeo

# Ruby の整数は Bignum なので，上限，下限は無い。

# 数学定数

Math::PI           # 円周率
Math::E　　　　　　　# 自然対数の底 e

# Float は，多くの実装で IEEE 754 double precision floating point number が使われる

Float.MAX         # 最大値

sasaki-shigeo

#
# 配列
#

xs = Array.new
xs = [1,2,4,8,16,32]

xs(0)     　　　# => 1 ;  先頭の成分
xs.last        # => 32 ; 最後の成分
xs[1..-1]      # => [2,4,8,16,32] ;  先頭を除いた部分列

sasaki-shigeo

;;;
;;; Algorithm: iterative square method
;;; 
;;; Basic Idea: a^(2*n) = (a^2)^n    (mod m)
;;;   e.g. a^4 = (a^2)^2, a^8 = ((a^2)^2)^2, a^16 = (((a^2)^2)^2)^2
;;;
;;; Haskell like code that scans the exponential from LSB to MSB
;;;   pow-mod a 1     m = a mod m
;;;   pow-mod a 2*n   m = powMod (a^2 mod m) n m
;;;   pow-mod a 2*n+1 m = (powMod (a^2 mod m) n m) * a mod m

sasaki-shigeo

//
// Scala の Array の実体は Java の配列
// - 各成分は mutable
// - 要素数の動的変更はできない
// - 必要に応じて implicite conversion で WrappedArray に変換されるため
//   Seq (or IndexedSeq ≒ Vector) と同じように扱うことができる
//

var xs = Array(1,2,4,8,16,32)    // 6個の成分を列挙した配列を作る
xs(3)                            // 丸カッコで index を与える

sasaki-shigeo

;;;
;;; 無限大と NaN
;;;
(define negative-infinity (log 0.0))
(define positive-infinity (- negative-infinity))
(define NaN               (+ positive-infinity negative-infinity))

;;;
;;; 数値の変換
;;;

sasaki-shigeo

(cond-expand
  (guile (use-modules (srfi srfi-6)))
  (gauche (use srfi-6))
  (plt (require (lib "6.ss" "srfi")))
  (srfi-6 #t))

;;; SRFI-6 provides open-input-string
(define *eof*
  (let ((port (open-input-string "")))
    (read port)))

sasaki-shigeo

#

for n in 1..100
  if n % 15 == 0
    puts 'fizzbuzz'
  elsif n % 3 == 0
    puts 'fizz'
  elsif n % 5 == 0
    puts 'buzz'
  else

sasaki-shigeo

class StopWatch {
    public static void main(String[] args) 
          throws InterruptedException  // thrown by Thread.sleep()
    {
        for (int h = 0; h < 24; h++) {
            for (int m = 0; m < 60; m++) {
                for (int s = 0; s < 60; s++) {
                    System.out.printf("%2d:%02d:%02d\n", h, m, s);
                    Thread.sleep(1000);      //  1000 ms = 1.0 sec
                }