whatalnk

def enc_string(s)
  repeated = Hash[("a".."z").to_a.zip (1..26)]
  n = s.length
  decoded = []
  i = 0
  while i < n
    chars = s[i..i+1]
    decoded << chars[0] * repeated[chars[1]]
    i += 2
  end

whatalnk

• Cookbook for R » Colors (ggplot2)
• with gray

cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")

• with black

cbbPalette <- c("#000000", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")

• plot the palette

whatalnk

• default color palette of ggplot2
• [R] ggplot2の色をプレゼンでも使いたい
• scale_colour_hue(), luminance=65
• n: number of variables
• l: luminance

gg_color_hue <- function(n, l=65) {
  hues <- seq(15, 375, length=n+1)
  hcl(h=hues, l=l, c=100)[1:n]
}

whatalnk

• 例外 Advent Calendar 2014 - Qiita
• #LOVEFONT Advent Calendar 2014 - Adventar
• R Advent Calendar 2014 - Qiita
• R Advent Calendar 2014 : ATND
• 家庭を支える技術 Advent Calendar 2014 - Adventar
• Git Advent Calendar 2014 - Qiita
• Perl Advent Calendar 2014 - Qiita
• Perl入学式 Advent Calendar 2014 - Qiita
• Python Advent Calendar 2014 - Qiita
• Clojure Advent Calendar 2014 - Qiita

whatalnk

m, d = gets.chomp.split(" ").map(&:to_i)
if m % d == 0 then
  puts 'YES'
else
  puts 'NO'
end

whatalnk

[Align multiple ggplot2 graphs with a common x axis and different y axes, each with different y-axis labels.](https://gist.github.com/tomhopper/faa24797bb44addeba79)

`grid.draw()` is from grid package

* same x axis
* y values are different, so margin of y axis is different
* in result, width of plot area are changed

```{r}
gp1 <- ggplot(...)

whatalnk

• TeX Live 2014
• /usr/local/texlive/texmf-local はなかった

游フォント

sudo mkdir /usr/local/texlive/texmf-local/fonts/opentype/yu-osx
sudo ln -s "/Library/Fonts/Yu Gothic Bold.otf" /usr/local/texlive/texmf-local/fonts/opentype/yu-osx/YuGo-Bold.otf
sudo ln -s "/Library/Fonts/Yu Gothic Medium.otf" /usr/local/texlive/texmf-local/fonts/opentype/yu-osx/YuGo-Medium.otf
sudo ln -s "/Library/Fonts/Yu Mincho Demibold.otf" /usr/local/texlive/texmf-local/fonts/opentype/yu-osx/YuMin-Demibold.otf

whatalnk

require 'mini_exiftool'
# modified mini_exiftool/examples/shift_time.rb
# MiniExiftool.command = 'path/to/exiftool.exe'
delta = 60*60*2 # 2 hour

# Dir.chdir("./path/to/photos") do
  Dir.foreach(".") do |f|
    if f =~ /.+\.JPG$/ then
      begin
        photo = MiniExiftool.new(f)

whatalnk

\documentclass[$if(fontsize)$$fontsize$,$endif$$if(lang)$$lang$,$endif$$if(papersize)$$papersize$,$endif$$for(classoption)$$classoption$$sep$,$endfor$]{bxjsarticle}
\usepackage{zxjatype}
\usepackage{xeCJK}
\setjamainfont{IPAexMincho}
\setjasansfont{IPAexGothic}
\setjamonofont{IPAGothic}
$if(fontfamily)$
\usepackage{$fontfamily$}
$else$
\usepackage{lmodern}

whatalnk

n = gets.chomp
puts n[0..-5] + "2015"