Scala で１年分のカレンダーを
"どう書く サイト" の
"n年の年間カレンダーを返すプログラムを作ってください"
に対する Scala での回答例 http://ja.doukaku.org/comment/5060/
を参考にして、自分なりのコードを書いてみた。
$ cat YearCalendar2.scala
// See http://ja.doukaku.org/comment/5060/
package scalaapplication
import java.text.DateFormatSymbols
import java.util.Locale
import java.util.Calendar
object Main extends Application {
val year = new YearCalendar2
Console.println(year.print(2009))
Console.println(year.print(2009, Locale.US))
Console.println(year.print(2009, Locale.CHINA))
}
class YearCalendar2 {
def selString(v:Int, width:Int) = ("%%%ds".format(width)).format(if(v == 0) "." else v.toString)
def print(year:Int):String = print(year, Locale.getDefault)
def print(year:Int, locale:Locale):String = {
val monthSyms = new DateFormatSymbols(locale).getMonths
val weekSyms = (new DateFormatSymbols(locale)).getShortWeekdays
val selWidth = 1 + (if (locale == Locale.JAPAN) 2 else if (locale == Locale.CHINA) 6 else 3) // weeks(1).getBytes.length
val cal = Calendar.getInstance(locale)
var ans = (locale.getDisplayCountry) + "\n" // 国の名前
for (month <- cal.getActualMinimum(Calendar.MONTH) to cal.getActualMaximum(Calendar.MONTH)) {
cal.set(year, month, 1)
ans += (year + " / " + monthSyms(month) + "\n") // 月の名前
ans += (weekSyms.mkString(" ")+ "\n") // 曜日の名前
val maxDay = cal.getActualMaximum(Calendar.DATE)
val w = cal.get(Calendar.DAY_OF_WEEK)
for (_ <- 1 to w - 1) { ans += (selString(0, selWidth)) } // 先頭の空白セル
for (d <- 1 to maxDay; dw = d + w - 1) {
ans += (selString(d, selWidth) +
(if ((dw % 7 == 0) && (d != maxDay)) "\n" else ""))
}
ans += ("\n")
}
ans
}
}
39 行と少し長くなってしまったが。
# 曜日の名前の文字列の表示長さを得る部分は、どう書くにある方法は私の環境ではうまく動作しなかった。
# でも他の良い方法もわからなかったので、個別対応してしまっている orz...
実行結果はこんな感じ。(等幅フォントでないとレイアウトが崩れる表示される...)
日本
2009 / 1月
日 月 火 水 木 金 土
. . . . 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
2009 / 2月
日 月 火 水 木 金 土
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
...
アメリカ合衆国
2009 / January
Sun Mon Tue Wed Thu Fri Sat
. . . . 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
...
2009 / 十二月
星期日 星期一 星期二 星期三 星期四 星期五 星期六
. . 1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
最近のコメント