kawakami-o3

select relname,n_live_tup,n_dead_tup,last_vacuum,last_autovacuum  from pg_stat_all_tables order by n_dead_tup desc limit 20;

kawakami-o3

select relname,(relpages/128) mbytes from pg_class order by mbytes desc limit 20;

kawakami-o3

data Hoge = Foo | Bar

-- to_s :: Hoge -> String
to_s Foo = "foo"

main = do
  putStrLn $ to_s Foo
  putStrLn $ to_s Bar

kawakami-o3

#!/usr/bin/env ruby
require 'optparse'


if not File.exist? ".vagrant"
  puts "not vagrant directory"
  return -1
end

if not File.exist? ".vagrant_ssh_config"

kawakami-o3

func TestWhyNotPost(t *testing.T) {
    testServerPort := 31337
    testServerAddr := fmt.Sprintf("127.0.0.1:%d", testServerPort)
    testServerRootURL := fmt.Sprintf("http://%s/", testServerAddr)

    srv := &Server{}
    listener, err := net.ListenTCP("tcp4", &net.TCPAddr{IP: net.IPv4(127, 0, 0, 1), Port: testServerPort})
    if err != nil {
        panic(err)
    }

kawakami-o3

package main

import "fmt"

func copyNg() {
  src := []int{0, 1, 2, 3, 4}

  dest := src[0:1]
  dest = append(dest, src[4:5]...)

kawakami-o3

package main

import (
    "fmt"
    "net"
    "net/http"
)

type MyMux struct {
}

kawakami-o3

; HyperSpec/Body/s_flet_.htm
 (defun foo (x flag)
   (macrolet ((fudge (z)
                 ;The parameters x and flag are not accessible
                 ; at this point; a reference to flag would be to
                 ; the global variable of that name.
                 ` (if flag (* ,z ,z) ,z)))
    ;The parameters x and flag are accessible here.
     (+ x
        (fudge x)

kawakami-o3

require 'yaml'

def escape str
  str = str.chars.map{|c|
    if c == "\n"
      "\\n"
    elsif c == "\r"
      "\\r"
    elsif c == "\t"
      "\\t"

kawakami-o3

package main

import (
    "bytes"
    "os"

    "github.com/k0kubun/pp"
    u "github.com/kawakami-o3/undergo"
)