DouKaku?

import java.lang.Comparable ;
import java.util.Arrays ;

class dHondtMethod
  {
  static class Vote implements Comparable
    {
    String 政党名 ; int 得票数 ; int 既得の議席数 ;
    Vote (String 名, int 票, int 席)
      {政党名 = 名 ; 得票数 = 票 ; 既得の議席数 = 席 ;} 

    public int compareTo (Object another_)
      {
      Vote another = (Vote) another_ ;

      Double thisValue
        = new Double (this.得票数 / (this.既得の議席数 + 1.)) ;
      Double anotherValue
        = new Double (another.得票数 / (another.既得の議席数 + 1.)) ;

      int cmp = thisValue .compareTo (anotherValue) ;
      return cmp!=0 ? cmp : this.得票数 - another.得票数 ;
      }

    public String toString ()
      {return "(政党名="+政党名+", 得票数="+得票数
              +", 既得の議席数="+既得の議席数+")" ;}
    }

  public static void main (String [] _)
    {
    int 定数 = 100 ;

    Vote [] votes = 
      {new Vote ("A党", 123, 0), new Vote ("B党",   4, 0),
       new Vote ("C党",  56, 0), new Vote ("D党",  78, 0)} ;

    while (0< 定数)
      {
      Arrays.sort (votes) ;
      Vote last = votes [votes.length - 1] ; // 最大のもの
      ++last.既得の議席数 ;
      --定数 ;
      }

    for (int i=0; i<votes.length; ++i)
      {System.out .println (votes [i]) ;}
    }
  }

; Vote オブジェクトの定義

(define (new_Vote party-name vote-count seat-count)
  (list party-name vote-count seat-count))
(define (Vote_getPartyName this) (car this))
(define (Vote_getVoteCount this) (cadr this))
(define (Vote_getSeatCount this) (caddr this))

(define (Vote_increaseSeatCount this)
  (new_Vote
    (Vote_getPartyName this)
    (Vote_getVoteCount this)
    (+ (Vote_getSeatCount this) 1)
  )
)

(define (Vote_isLessThan this another)
  (let
    (
    (thisValue (/ (Vote_getVoteCount this) (+ (Vote_getSeatCount this) 1)))
    (anotherValue (/ (Vote_getVoteCount another) (+ (Vote_getSeatCount another)1)))
    )

    (if (= thisValue anotherValue)
      (< (Vote_getVoteCount this) (Vote_getVoteCount another))
      (< thisValue anotherValue)
    )
  )
)

(define (Vote_display this)
  (display "party-name: ") (display (Vote_getPartyName this)) (display ", ")
  (display "vote-count: ") (display (Vote_getVoteCount this)) (display ", ")
  (display "seat-count: ") (display (Vote_getSeatCount this)) (newline)
)

; d'Hondt 方式の要

  ; 新しい Vote オブジェクトを大きい順で追加する

  (define (dHondt_add this vote)
    (if (null? this)
      (list vote)
    (if (Vote_isLessThan (car this) vote)
      (cons vote this)
      (cons (car this) (VoteList_add (cdr this) vote)) ; .... ?
    ))
  )


; ここが d'Hondt の処理

(define (dHondt total-seat-count sorted-vote-list)
  (do () ((= 0 total-seat-count))
    ; 次回の 今回議席を獲得した党 (car) の議席数を
    ; 1増やして (increaseSeatCount)、
    ; 残りの党たちのリスト (cdr) に add する
    ; (このアルゴリズムのポイント)
    (set! sorted-vote-list
      (dHondt_add
        (cdr sorted-vote-list)
        (Vote_increaseSeatCount (car sorted-vote-list))
      )
    )
    (set! total-seat-count (- total-seat-count 1))
  )
  sorted-vote-list
)

; お試しコード ------------------------------------------------------------

(define otameshi-list ())
(set! otameshi-list (dHondt_add otameshi-list (new_Vote "A" 123 0)))
(set! otameshi-list (dHondt_add otameshi-list (new_Vote "B"   4 0)))
(set! otameshi-list (dHondt_add otameshi-list (new_Vote "C"  56 0)))
(set! otameshi-list (dHondt_add otameshi-list (new_Vote "D"  78 0)))

(set! otameshi-list (dHondt 100 otameshi-list))

(Vote_display (car otameshi-list))
(Vote_display (cadr otameshi-list))
(Vote_display (caddr otameshi-list))
(Vote_display (cadddr otameshi-list))