LL GOLF - HOLE 3
解説: Yugui

2008年8月30日土曜日

自己紹介
2008年8月30日土曜日

Yugui2008年8月30日土曜日

Akasaka.rb
2008年8月30日土曜日

リリースマネージャー
2008年8月30日土曜日

初めてのRuby
2008年8月30日土曜日

2008年8月30日土曜日

本題
2008年8月30日土曜日

実直で賞
2008年8月30日土曜日

匿名さん
2008年8月30日土曜日

840B
2008年8月30日土曜日

import java.util.*;import static java.util.Calendar.*;public class Count13Friday {public static void main(String[] args) {Calendar to = new GregorianCalendar(2013, 12, 31);
Calendar current = new GregorianCalendar();int currentDate = current.get(DATE);
if (currentDate != 13) {current.set(DATE, 13);
if (13 < currentDate) {current.add(MONTH, 1);}}
List<Date> fridays = new ArrayList<Date>();while (current.compareTo(to) <= 0) {if (current.get(DAY_OF_WEEK) == FRIDAY) {fridays.add(current.getTime());}
current.add(MONTH, 1);}
System.out.println("Fridays = " + fridays);
System.out.println("Fridays count = " + fridays.size());}}

2008年8月30日土曜日

質実剛健
2008年8月30日土曜日

難点
2008年8月30日土曜日

import2008年8月30日土曜日

- import java.util.*;+ import java.util.ArrayList;+ import java.util.Calendar;+ import java.util.Date;+ import java.util.GregorianCalendar;+ import java.util.List;
import static java.util.Calendar.*;public class Count13Friday {2008年8月30日土曜日

次
2008年8月30日土曜日

AI賞
2008年8月30日土曜日

koguroさん
2008年8月30日土曜日

1292B2008年8月30日土曜日

#!/usr/bin/env gosh(use gauche.process)(let* ((now (sys-localtime (sys-time)))(lst '()))(do ((y #0=(+ 1900 (ref now 'year)) (+ y 1)))((<= 2014 y)(dolist (elem (reverse lst))(apply format #t "~d/~d/13~%" elem))(format #t "==> ~d~%" (length lst)))(do ((m 0 (+ m 1)))((<= 12 m))(unless (and (= #0# y)(or (< m #1=(ref now 'mon))(and (= #1# m) (< 13 (ref now 'mday)))))(let ((l (process-output->string-list `(cal ,(+ m 1) ,y))))(let loop ((ans (find #/8 9 10 11 12 13 14/ l)))(for-each print l)(print "この月に13日の金曜日は含まれますか?\n含まれる場合は y, 疲れたときは g, それ以外のときはリターンキーを押してください: ")(case (string->symbol (read-line))((y Y) (if ans(push! lst (list y (+ m 1)))#2=(begin(print "\n*** 本当ですか? もう一度よく確認してみてください ***\n")(loop ans))))((g G) (error "out of patience, aborting ..."))(else(when ans#2#)))))))))
2008年8月30日土曜日

無駄遣い
2008年8月30日土曜日

ネタ精神2008年8月30日土曜日

次
2008年8月30日土曜日

フィル
ター賞
2008年8月30日土曜日

関数
2008年8月30日土曜日

あにすさん
2008年8月30日土曜日

358B
2008年8月30日土曜日

using System;using
System.Collections.Generic;using
System.Linq;class C{static void Main(){List<DateTime>l=new
List<DateTime>();for(DateTimed=DateTime.Now;d<=new
DateTime(2013,12,31);d=d.AddDays(1)){l.Add(d);}var v=from f in l where(int)(f.DayOfWeek)==5&f.Day==13selectf.Date;foreach(var d in v){Console.WriteLine(d);}Console.Write(v.Cou
nt<DateTime>());}}

2008年8月30日土曜日

LINQ
2008年8月30日土曜日

using System;
using System.Collections.Generic;using System.Linq;
class C {static void Main(){
List<DateTime> l = new List<DateTime>();for (DateTime d = DateTime.Now; d <= new
DateTime(2013,12,31); d = d.AddDays(1)) {l.Add(d);}var v = from fin lwhere (int)(f.DayOfWeek) == 5 & f.Day==13select f.Date;foreach (var d in v) {Console.WriteLine(d);}Console.Write(v.Count<DateTime>());}}

2008年8月30日土曜日

次
2008年8月30日土曜日

goruby賞
2008年8月30日土曜日

shimaku
maさん
2008年8月30日土曜日

56B
2008年8月30日土曜日

実は最短
2008年8月30日土曜日

rq'date'
a=De.y.up(De.w 2014).s{|d|d.d*d.w==65}
s a,a.sz

2008年8月30日土曜日

プロの犯行2008年8月30日土曜日

展開
2008年8月30日土曜日

rq'date'
a=De.y.up(De.w 2014).s{|d|d.d*d.w==65}
s a,a.sz

2008年8月30日土曜日

rq'date'
a=De.y.up(De.w 2014).s{|d|d.d*d.w==65}
s a,a.sz↓

2008年8月30日土曜日

rq'date'
a=De.y.up(De.w 2014).s{|d|d.d*d.w==65}
s a,a.sz↓
require 'date'
a=Date.today.upto(Date.new 2014).select{|d|d.day*d.wday==65}
puts a,a.size

2008年8月30日土曜日

これはひどい2008年8月30日土曜日

アルゴリズム
2008年8月30日土曜日

由来
2008年8月30日土曜日

==65
2008年8月30日土曜日

アルゴリ
ズム賞
2008年8月30日土曜日

[1..100]>>=penさん
2008年8月30日土曜日

require'date'
i=0
Date.today.upto(Date.new(2014)-1){|d|puts d.strftime'%Y-%m-%d' if
d.mday*d.wday==65 && i+=1}
puts i2008年8月30日土曜日

次
2008年8月30日土曜日

短いで賞
2008年8月30日土曜日

kkobayashiさん
2008年8月30日土曜日

75B
2008年8月30日土曜日

l=Sys.Date():16070;class(l)="Date";length(print(l[format(l,"%d%w")==135]))

2008年8月30日土曜日

了
2008年8月30日土曜日

LL GOLF - HOLE 7

2008年8月30日土曜日

CPAN賞
2008年8月30日土曜日

turuginaさん
2008年8月30日土曜日

65B
2008年8月30日土曜日

perl -MNumber::Bytes::Human=format_bytes-ple'$_=format_bytes$_'

2008年8月30日土曜日

正攻法
2008年8月30日土曜日

短い
2008年8月30日土曜日

次
2008年8月30日土曜日

フクロウ賞
2008年8月30日土曜日

emasakaさん
2008年8月30日土曜日

81B
2008年8月30日土曜日

C++ is a(functional) LL
2008年8月30日土曜日

1239B2008年8月30日土曜日

#include <iostream>
template <bool b, class T, class S> struct Choice { typedef T Result; };template <class T, class S> struct Choice<false, T, S> { typedef S Result; };struct None {enum{ symbol = ' ', base =1LL };};
struct Kilo {enum{ symbol = 'K', base =1000LL };};
struct Mega {enum{ symbol = 'M', base =1000000LL };};
struct Giga {enum{ symbol = 'G', base =1000000000LL };};
struct Tera {enum{ symbol = 'T', base = 1000000000000LL };};
template <long long n> struct SIPrefix{
typedeftypename Choice< n < Kilo::base,None,typename Choice< n < Mega::base,Kilo,
typename Choice< n < Giga::base,Mega,typename Choice< n < Tera::base,Giga,
Tera>::Result>::Result>::Result>::Result Result;};
template <long long n> struct HumanReadable{private:
typedef typename SIPrefix<n>::Result prefix;
friend std::ostream& operator << (std::ostream& os, struct HumanReadable<n>){return os << static_cast<double>(n)/prefix::base << static_cast<char>(prefix::symbol);}};
int main(){
std::cout << HumanReadable<123456789012345LL>() << std::endl;return 0;};2008年8月30日土曜日

次
2008年8月30日土曜日

おばふろ賞
2008年8月30日土曜日

quabbinさん
2008年8月30日土曜日

63B
2008年8月30日土曜日

s=$*[0];l=s.size-1;x=l%3+1
p s[0,x]+"."+s[x,1]+" kMGTPE"[l/3,1]

2008年8月30日土曜日

次
2008年8月30日土曜日

またお前か賞
2008年8月30日土曜日

emasakaさん
2008年8月30日土曜日

80B
2008年8月30日土曜日

dd if=/dev/zero of=.$$ bs=$1
count=1 2>/dev/nullls -lh .$$|cut -d\ -f 5
rm .$$

2008年8月30日土曜日

完
2008年8月30日土曜日