DouKaku?

def dkk208(List l){
  l.size < 3 ? l : l[2..-1].inject(l[0, 1]){ r, n ->
    def a = r[-1], b = r[-2]
    if(a instanceof Number && b instanceof Number && n == a * 2 - b)
      r[-2..-1] = [[b, n, n - a]]
    else if(a instanceof List && n == a[1] + a[2])
      a[1] = n
    else
      r << n
    r
  }.each{ it instanceof List && it[2] == 1 && it.pop() }
}
assert dkk208([1, 3, 4, 5, 6, 12, 13, 15, 20, 25, 26, 27]) ==
  [1, [3, 6], 12, 13, [15, 25, 5], 26, 27]

cli = new CliBuilder(usage:'cmdopt -o [-q] [-d{0|1|2}] 文字列 [文字列 ...]')
cli.o(longOpt:'output', required:true, 'set output') 
cli.q(longOpt:'quote', 'set quote') 
cli.d(longOpt:'debug', args:1, argName:'level', 'set debug level') 

opt = cli.parse(args)
if (!opt) System.exit 1
params = opt.arguments()
if (params.size() < 1) die 'parameter must be specified'
level = opt.d ? opt.d.toInteger() : 0
if (!(level in 0..2)) die 'debug level must be in 0-2'

println '[オプション情報]'
println "o(output): ${opt.o ? 'ON' : 'OFF'}"
println "q(quote): ${opt.q ? 'ON' : 'OFF'}"
println "d(debug): $level"
println '\n[パラメータ情報]'
println "指定数: ${params.size()}"
i = 1
params.each { println "${i++}: $it" }

def die(msg) {
  cli.writer.println "error: $msg"
  cli.usage()
  System.exit 1
}

a=(new Date()..new Date(114,0,0)).grep{it=~/i\D+13/}
print a+a.size

try {
  host = args[0] 
  port = args[1].toInteger()
} catch (e) {
  println "usage: groovy ${this.class.name} host port"
  System.exit 1
}

new Socket(host, port).withStreams { is, os ->
  dis = new DataInputStream(is)
  buf = new byte[1024]
  while ((len = System.in.read(buf)) >= 0) {
    os.write(buf, 0, len)
    dis.readFully(buf, 0, len)
    System.out.write(buf, 0, len)
  }
}

format = new java.text.SimpleDateFormat('yyyyMMddHHmmss')

def dateEx(delta, date = null) {
  d = (date) ? format.parse(date) : new Date()
  format.format(new Date(d.time + delta * 1000))
}

println dateEx(40, "20080827235925")
println dateEx(100)

l=((new Date()..new Date(113,11,31)).findAll{it.date*it.day==65});print"${l.size}$l"

(new Date()..new Date(113,11,31)).any{if(it.date*it.day==65)println it}

tr={e,f,t,w->w.collect{e(f).contains(it)?e(t)[e(f).indexOf(it)]:it}.join()}.curry({it[0]..it[2]})
println(tr("a-z","A-Z","typewriter"))

tr={f,t,w->w.collect{f.contains(it)?t[f.indexOf(it)]:it}.join()}

println(tr("qwertyuiop","QWERTYUIOP","typewriter"))

[1..<(n=0.decode(args[0])),n..1]*.any{println'*'*it}

b=args[0].toInteger()*2;b.times {println"*"*(it<b/2?it:b-it)}

{n->n>1?"*¥n${call(n-1).replaceAll('¥n','*¥n')}*¥n":"*¥n"}

def b = System.in.newReader().readLine().toInteger()*2
b.times { println "*"*(it<b/2 ?it:b-it) }

def b = System.in.newReader().readLine().toFloat()

if (b < 10**3)
   { println b }
else if (b < 10**6)
   { printf ("%.1fk" , (b/10**3))}
else if (b < 10**9)
   { printf ("%2.1fM" , (b/10**6))}
else if (b < 10**12)
   { printf ("%2.1fG" , (b/10**9))}
else
   { printf ("%2.1fT" , (b/10**12))}

print Integer.toBinaryString(System.in.newReader().readLine().toInteger())

def input = System.in.newReader().readLine()
println Integer.toBinaryString(input.toInteger())

(0..300).each{ans->if(ans.toString()==~'[0-9]0*') println ans}

print 0L.toString("$System.in".toLong(),2)

(0..300).grep(~/.0*/).any 0.&println

println dont([ 123, 4, 56, 78 ], 100)

def dont( vlist, countOfSheet ){
    def groups = vlist.collect{ [ v:it, s:0 ] }

    countOfSheet.times{
        def map = groups.max{ it.v/(it.s + 1) }
        map.s++
    }
    
    groups.collect{ it.s }
}