Hatena::Groupfizzbuzz

id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記

2016-12-18

Vim のマッピングとスタックのみを使って FizzBuzz

23:21 | はてなブックマーク - Vim のマッピングとスタックのみを使って FizzBuzz - id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記 Vim のマッピングとスタックのみを使って FizzBuzz - id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記 のブックマークコメント

https://gist.github.com/tyru/6e17ca16203f0e1a3a26c95e30c94e3c

"
" fizzbuzz-pushdown-automaton.vim - FizzBuzz by mappings & stack
"
" Rules:
" * No <expr>
" * Of course no Vim script expressions in normal mode, too
"
" Mapping Flow:
" 1. doit
" 2. getchar:{numchar}
" 3. getchar{n % 3}{n % 5 == 0 ? 1 : 0}:{numchar}
" 4. Result
"   1. <SID>(result:fizz)
"   2. <SID>(result:buzz)
"   3. <SID>(result:fizzbuzz)
"   4. <SID>(result:number)
"     Pop numbers until the stack becomes empty
"

" nmap     <expr> doit join(map(range(1, 100), '"<SID>getchar:entry:".(join(reverse(split(v:val, "\\zs")), ""))."\<Esc>"'),'')
nmap doit <SID>getchar:1<Esc><SID>getchar:2<Esc><SID>getchar:3<Esc><SID>getchar:4<Esc><SID>getchar:5<Esc><SID>getchar:6<Esc><SID>getchar:7<Esc><SID>getchar:8<Esc><SID>getchar:9<Esc><SID>getchar:01<Esc><SID>getchar:11<Esc><SID>getchar:21<Esc><SID>getchar:31<Esc><SID>getchar:41<Esc><SID>getchar:51<Esc><SID>getchar:61<Esc><SID>getchar:71<Esc><SID>getchar:81<Esc><SID>getchar:91<Esc><SID>getchar:02<Esc><SID>getchar:12<Esc><SID>getchar:22<Esc><SID>getchar:32<Esc><SID>getchar:42<Esc><SID>getchar:52<Esc><SID>getchar:62<Esc><SID>getchar:72<Esc><SID>getchar:82<Esc><SID>getchar:92<Esc><SID>getchar:03<Esc><SID>getchar:13<Esc><SID>getchar:23<Esc><SID>getchar:33<Esc><SID>getchar:43<Esc><SID>getchar:53<Esc><SID>getchar:63<Esc><SID>getchar:73<Esc><SID>getchar:83<Esc><SID>getchar:93<Esc><SID>getchar:04<Esc><SID>getchar:14<Esc><SID>getchar:24<Esc><SID>getchar:34<Esc><SID>getchar:44<Esc><SID>getchar:54<Esc><SID>getchar:64<Esc><SID>getchar:74<Esc><SID>getchar:84<Esc><SID>getchar:94<Esc><SID>getchar:05<Esc><SID>getchar:15<Esc><SID>getchar:25<Esc><SID>getchar:35<Esc><SID>getchar:45<Esc><SID>getchar:55<Esc><SID>getchar:65<Esc><SID>getchar:75<Esc><SID>getchar:85<Esc><SID>getchar:95<Esc><SID>getchar:06<Esc><SID>getchar:16<Esc><SID>getchar:26<Esc><SID>getchar:36<Esc><SID>getchar:46<Esc><SID>getchar:56<Esc><SID>getchar:66<Esc><SID>getchar:76<Esc><SID>getchar:86<Esc><SID>getchar:96<Esc><SID>getchar:07<Esc><SID>getchar:17<Esc><SID>getchar:27<Esc><SID>getchar:37<Esc><SID>getchar:47<Esc><SID>getchar:57<Esc><SID>getchar:67<Esc><SID>getchar:77<Esc><SID>getchar:87<Esc><SID>getchar:97<Esc><SID>getchar:08<Esc><SID>getchar:18<Esc><SID>getchar:28<Esc><SID>getchar:38<Esc><SID>getchar:48<Esc><SID>getchar:58<Esc><SID>getchar:68<Esc><SID>getchar:78<Esc><SID>getchar:88<Esc><SID>getchar:98<Esc><SID>getchar:09<Esc><SID>getchar:19<Esc><SID>getchar:29<Esc><SID>getchar:39<Esc><SID>getchar:49<Esc><SID>getchar:59<Esc><SID>getchar:69<Esc><SID>getchar:79<Esc><SID>getchar:89<Esc><SID>getchar:99<Esc><SID>getchar:001<Esc>

nmap <SID>getchar:0 <SID>(stack:init)<SID>stack:push:0<SID>getchar01:
nmap <SID>getchar:1 <SID>(stack:init)<SID>stack:push:1<SID>getchar10:
nmap <SID>getchar:2 <SID>(stack:init)<SID>stack:push:2<SID>getchar20:
nmap <SID>getchar:3 <SID>(stack:init)<SID>stack:push:3<SID>getchar00:
nmap <SID>getchar:4 <SID>(stack:init)<SID>stack:push:4<SID>getchar10:
nmap <SID>getchar:5 <SID>(stack:init)<SID>stack:push:5<SID>getchar21:
nmap <SID>getchar:6 <SID>(stack:init)<SID>stack:push:6<SID>getchar00:
nmap <SID>getchar:7 <SID>(stack:init)<SID>stack:push:7<SID>getchar10:
nmap <SID>getchar:8 <SID>(stack:init)<SID>stack:push:8<SID>getchar20:
nmap <SID>getchar:9 <SID>(stack:init)<SID>stack:push:9<SID>getchar00:

nmap <SID>getchar00:0 <SID>stack:push:0<SID>getchar00:
nmap <SID>getchar00:1 <SID>stack:push:1<SID>getchar10:
nmap <SID>getchar00:2 <SID>stack:push:2<SID>getchar20:
nmap <SID>getchar00:3 <SID>stack:push:3<SID>getchar00:
nmap <SID>getchar00:4 <SID>stack:push:4<SID>getchar10:
nmap <SID>getchar00:5 <SID>stack:push:5<SID>getchar20:
nmap <SID>getchar00:6 <SID>stack:push:6<SID>getchar00:
nmap <SID>getchar00:7 <SID>stack:push:7<SID>getchar10:
nmap <SID>getchar00:8 <SID>stack:push:8<SID>getchar20:
nmap <SID>getchar00:9 <SID>stack:push:9<SID>getchar00:
nmap <SID>getchar00:<Esc> <SID>(result:fizz)
nmap <SID>getchar01:0 <SID>stack:push:0<SID>getchar01:
nmap <SID>getchar01:1 <SID>stack:push:1<SID>getchar11:
nmap <SID>getchar01:2 <SID>stack:push:2<SID>getchar21:
nmap <SID>getchar01:3 <SID>stack:push:3<SID>getchar01:
nmap <SID>getchar01:4 <SID>stack:push:4<SID>getchar11:
nmap <SID>getchar01:5 <SID>stack:push:5<SID>getchar21:
nmap <SID>getchar01:6 <SID>stack:push:6<SID>getchar01:
nmap <SID>getchar01:7 <SID>stack:push:7<SID>getchar11:
nmap <SID>getchar01:8 <SID>stack:push:8<SID>getchar21:
nmap <SID>getchar01:9 <SID>stack:push:9<SID>getchar01:
nmap <SID>getchar01:<Esc> <SID>(result:fizzbuzz)
nmap <SID>getchar10:0 <SID>stack:push:0<SID>getchar10:
nmap <SID>getchar10:1 <SID>stack:push:1<SID>getchar20:
nmap <SID>getchar10:2 <SID>stack:push:2<SID>getchar00:
nmap <SID>getchar10:3 <SID>stack:push:3<SID>getchar10:
nmap <SID>getchar10:4 <SID>stack:push:4<SID>getchar20:
nmap <SID>getchar10:5 <SID>stack:push:5<SID>getchar00:
nmap <SID>getchar10:6 <SID>stack:push:6<SID>getchar10:
nmap <SID>getchar10:7 <SID>stack:push:7<SID>getchar20:
nmap <SID>getchar10:8 <SID>stack:push:8<SID>getchar00:
nmap <SID>getchar10:9 <SID>stack:push:9<SID>getchar10:
nmap <SID>getchar10:<Esc> <SID>(result:number)
nmap <SID>getchar11:0 <SID>stack:push:0<SID>getchar11:
nmap <SID>getchar11:1 <SID>stack:push:1<SID>getchar21:
nmap <SID>getchar11:2 <SID>stack:push:2<SID>getchar01:
nmap <SID>getchar11:3 <SID>stack:push:3<SID>getchar11:
nmap <SID>getchar11:4 <SID>stack:push:4<SID>getchar21:
nmap <SID>getchar11:5 <SID>stack:push:5<SID>getchar01:
nmap <SID>getchar11:6 <SID>stack:push:6<SID>getchar11:
nmap <SID>getchar11:7 <SID>stack:push:7<SID>getchar21:
nmap <SID>getchar11:8 <SID>stack:push:8<SID>getchar01:
nmap <SID>getchar11:9 <SID>stack:push:9<SID>getchar11:
nmap <SID>getchar11:<Esc> <SID>(result:buzz)
nmap <SID>getchar20:0 <SID>stack:push:0<SID>getchar20:
nmap <SID>getchar20:1 <SID>stack:push:1<SID>getchar00:
nmap <SID>getchar20:2 <SID>stack:push:2<SID>getchar10:
nmap <SID>getchar20:3 <SID>stack:push:3<SID>getchar20:
nmap <SID>getchar20:4 <SID>stack:push:4<SID>getchar00:
nmap <SID>getchar20:5 <SID>stack:push:5<SID>getchar10:
nmap <SID>getchar20:6 <SID>stack:push:6<SID>getchar20:
nmap <SID>getchar20:7 <SID>stack:push:7<SID>getchar00:
nmap <SID>getchar20:8 <SID>stack:push:8<SID>getchar10:
nmap <SID>getchar20:9 <SID>stack:push:9<SID>getchar20:
nmap <SID>getchar20:<Esc> <SID>(result:number)
nmap <SID>getchar21:0 <SID>stack:push:0<SID>getchar21:
nmap <SID>getchar21:1 <SID>stack:push:1<SID>getchar01:
nmap <SID>getchar21:2 <SID>stack:push:2<SID>getchar11:
nmap <SID>getchar21:3 <SID>stack:push:3<SID>getchar21:
nmap <SID>getchar21:4 <SID>stack:push:4<SID>getchar01:
nmap <SID>getchar21:5 <SID>stack:push:5<SID>getchar11:
nmap <SID>getchar21:6 <SID>stack:push:6<SID>getchar21:
nmap <SID>getchar21:7 <SID>stack:push:7<SID>getchar01:
nmap <SID>getchar21:8 <SID>stack:push:8<SID>getchar11:
nmap <SID>getchar21:9 <SID>stack:push:9<SID>getchar21:
nmap <SID>getchar21:<Esc> <SID>(result:buzz)

" Stack operations
let s:stack = []

function! s:stack_init() abort
  call s:stack_dump('init')
  let s:stack = [s:SNR_PREFIX . "result:number:\<Esc>"]
  return ''
endfunction

function! s:stack_pop() abort
  call s:stack_dump('pop')
  return remove(s:stack, -1)
endfunction

function! s:stack_push(n) abort
  call s:stack_dump('push')
  let s:stack += [s:SNR_PREFIX . 'result:number:' . a:n]
  return ''
endfunction

let s:DEBUG = 0
function! s:stack_dump(caller) abort
  if !s:DEBUG | return | endif
  echomsg a:caller ':' string(s:stack)
endfunction

function! s:SID()
  return matchstr(expand('<sfile>'), '<SNR>\zs\d\+\ze_SID$')
endfunction
let s:SNR_PREFIX = "\<SNR>" . s:SID() . '_'

nnoremap <expr> <SID>(stack:init) <SID>stack_init()
nmap <expr> <SID>(stack:pop) <SID>stack_pop()
nnoremap <expr> <SID>stack:push:0 <SID>stack_push(0)
nnoremap <expr> <SID>stack:push:1 <SID>stack_push(1)
nnoremap <expr> <SID>stack:push:2 <SID>stack_push(2)
nnoremap <expr> <SID>stack:push:3 <SID>stack_push(3)
nnoremap <expr> <SID>stack:push:4 <SID>stack_push(4)
nnoremap <expr> <SID>stack:push:5 <SID>stack_push(5)
nnoremap <expr> <SID>stack:push:6 <SID>stack_push(6)
nnoremap <expr> <SID>stack:push:7 <SID>stack_push(7)
nnoremap <expr> <SID>stack:push:8 <SID>stack_push(8)
nnoremap <expr> <SID>stack:push:9 <SID>stack_push(9)

" Output
nnoremap <SID>(result:fizz) aFizz<CR><Esc>
nnoremap <SID>(result:buzz) aBuzz<CR><Esc>
nnoremap <SID>(result:fizzbuzz) aFizzBuzz<CR><Esc>
" Pop until <SID>result:number:<Esc>
nmap <script> <SID>(result:number) <SID>(stack:pop)
nmap <script> <SID>result:number:0 a0<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:1 a1<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:2 a2<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:3 a3<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:4 a4<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:5 a5<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:6 a6<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:7 a7<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:8 a8<Esc><SID>(stack:pop)
nmap <script> <SID>result:number:9 a9<Esc><SID>(stack:pop)
nnoremap <SID>result:number:<Esc> o<Esc>

Vim のマッピングとバッファを使って FizzBuzz

23:18 | はてなブックマーク - Vim のマッピングとバッファを使って FizzBuzz - id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記 Vim のマッピングとバッファを使って FizzBuzz - id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記 のブックマークコメント

https://gist.github.com/tyru/6e17ca16203f0e1a3a26c95e30c94e3c

"
" fizzbuzz-buffer.vim - FizzBuzz by mappings & buffer content
"
" Rules:
" * No <expr>
" * Of course no Vim script expressions in normal mode, too
"
" Mapping Flow:
" 1. doit
" 2. getchar:{numchar}
" 3. getchar{n % 3}{n % 5 == 0 ? 1 : 0}:{numchar}
" 4. Result
"   1. <SID>(result:fizz)
"   2. <SID>(result:buzz)
"   3. <SID>(result:fizzbuzz)
"   4. <SID>(result:number)
"

" nmap     <expr> doit join(map(range(1, 100), '"<SID>getchar:entry:".v:val."\<Esc>"'),'')
nmap doit <SID>getchar:1<Esc><SID>getchar:2<Esc><SID>getchar:3<Esc><SID>getchar:4<Esc><SID>getchar:5<Esc><SID>getchar:6<Esc><SID>getchar:7<Esc><SID>getchar:8<Esc><SID>getchar:9<Esc><SID>getchar:10<Esc><SID>getchar:11<Esc><SID>getchar:12<Esc><SID>getchar:13<Esc><SID>getchar:14<Esc><SID>getchar:15<Esc><SID>getchar:16<Esc><SID>getchar:17<Esc><SID>getchar:18<Esc><SID>getchar:19<Esc><SID>getchar:20<Esc><SID>getchar:21<Esc><SID>getchar:22<Esc><SID>getchar:23<Esc><SID>getchar:24<Esc><SID>getchar:25<Esc><SID>getchar:26<Esc><SID>getchar:27<Esc><SID>getchar:28<Esc><SID>getchar:29<Esc><SID>getchar:30<Esc><SID>getchar:31<Esc><SID>getchar:32<Esc><SID>getchar:33<Esc><SID>getchar:34<Esc><SID>getchar:35<Esc><SID>getchar:36<Esc><SID>getchar:37<Esc><SID>getchar:38<Esc><SID>getchar:39<Esc><SID>getchar:40<Esc><SID>getchar:41<Esc><SID>getchar:42<Esc><SID>getchar:43<Esc><SID>getchar:44<Esc><SID>getchar:45<Esc><SID>getchar:46<Esc><SID>getchar:47<Esc><SID>getchar:48<Esc><SID>getchar:49<Esc><SID>getchar:50<Esc><SID>getchar:51<Esc><SID>getchar:52<Esc><SID>getchar:53<Esc><SID>getchar:54<Esc><SID>getchar:55<Esc><SID>getchar:56<Esc><SID>getchar:57<Esc><SID>getchar:58<Esc><SID>getchar:59<Esc><SID>getchar:60<Esc><SID>getchar:61<Esc><SID>getchar:62<Esc><SID>getchar:63<Esc><SID>getchar:64<Esc><SID>getchar:65<Esc><SID>getchar:66<Esc><SID>getchar:67<Esc><SID>getchar:68<Esc><SID>getchar:69<Esc><SID>getchar:70<Esc><SID>getchar:71<Esc><SID>getchar:72<Esc><SID>getchar:73<Esc><SID>getchar:74<Esc><SID>getchar:75<Esc><SID>getchar:76<Esc><SID>getchar:77<Esc><SID>getchar:78<Esc><SID>getchar:79<Esc><SID>getchar:80<Esc><SID>getchar:81<Esc><SID>getchar:82<Esc><SID>getchar:83<Esc><SID>getchar:84<Esc><SID>getchar:85<Esc><SID>getchar:86<Esc><SID>getchar:87<Esc><SID>getchar:88<Esc><SID>getchar:89<Esc><SID>getchar:90<Esc><SID>getchar:91<Esc><SID>getchar:92<Esc><SID>getchar:93<Esc><SID>getchar:94<Esc><SID>getchar:95<Esc><SID>getchar:96<Esc><SID>getchar:97<Esc><SID>getchar:98<Esc><SID>getchar:99<Esc><SID>getchar:100<Esc>

nmap <SID>getchar: <SID>getchar00:

nmap <SID>getchar00:0 <SID>append:0<SID>getchar01:
nmap <SID>getchar00:1 <SID>append:1<SID>getchar10:
nmap <SID>getchar00:2 <SID>append:2<SID>getchar20:
nmap <SID>getchar00:3 <SID>append:3<SID>getchar00:
nmap <SID>getchar00:4 <SID>append:4<SID>getchar10:
nmap <SID>getchar00:5 <SID>append:5<SID>getchar21:
nmap <SID>getchar00:6 <SID>append:6<SID>getchar00:
nmap <SID>getchar00:7 <SID>append:7<SID>getchar10:
nmap <SID>getchar00:8 <SID>append:8<SID>getchar20:
nmap <SID>getchar00:9 <SID>append:9<SID>getchar00:
nmap <SID>getchar00:<Esc> <SID>(result:fizz)
nmap <SID>getchar01:0 <SID>append:0<SID>getchar01:
nmap <SID>getchar01:1 <SID>append:1<SID>getchar10:
nmap <SID>getchar01:2 <SID>append:2<SID>getchar20:
nmap <SID>getchar01:3 <SID>append:3<SID>getchar00:
nmap <SID>getchar01:4 <SID>append:4<SID>getchar10:
nmap <SID>getchar01:5 <SID>append:5<SID>getchar21:
nmap <SID>getchar01:6 <SID>append:6<SID>getchar00:
nmap <SID>getchar01:7 <SID>append:7<SID>getchar10:
nmap <SID>getchar01:8 <SID>append:8<SID>getchar20:
nmap <SID>getchar01:9 <SID>append:9<SID>getchar00:
nmap <SID>getchar01:<Esc> <SID>(result:fizzbuzz)
nmap <SID>getchar10:0 <SID>append:0<SID>getchar11:
nmap <SID>getchar10:1 <SID>append:1<SID>getchar20:
nmap <SID>getchar10:2 <SID>append:2<SID>getchar00:
nmap <SID>getchar10:3 <SID>append:3<SID>getchar10:
nmap <SID>getchar10:4 <SID>append:4<SID>getchar20:
nmap <SID>getchar10:5 <SID>append:5<SID>getchar01:
nmap <SID>getchar10:6 <SID>append:6<SID>getchar10:
nmap <SID>getchar10:7 <SID>append:7<SID>getchar20:
nmap <SID>getchar10:8 <SID>append:8<SID>getchar00:
nmap <SID>getchar10:9 <SID>append:9<SID>getchar10:
nmap <SID>getchar10:<Esc> <SID>(result:number)
nmap <SID>getchar11:0 <SID>append:0<SID>getchar11:
nmap <SID>getchar11:1 <SID>append:1<SID>getchar20:
nmap <SID>getchar11:2 <SID>append:2<SID>getchar00:
nmap <SID>getchar11:3 <SID>append:3<SID>getchar10:
nmap <SID>getchar11:4 <SID>append:4<SID>getchar20:
nmap <SID>getchar11:5 <SID>append:5<SID>getchar01:
nmap <SID>getchar11:6 <SID>append:6<SID>getchar10:
nmap <SID>getchar11:7 <SID>append:7<SID>getchar20:
nmap <SID>getchar11:8 <SID>append:8<SID>getchar00:
nmap <SID>getchar11:9 <SID>append:9<SID>getchar10:
nmap <SID>getchar11:<Esc> <SID>(result:buzz)
nmap <SID>getchar20:0 <SID>append:0<SID>getchar21:
nmap <SID>getchar20:1 <SID>append:1<SID>getchar00:
nmap <SID>getchar20:2 <SID>append:2<SID>getchar10:
nmap <SID>getchar20:3 <SID>append:3<SID>getchar20:
nmap <SID>getchar20:4 <SID>append:4<SID>getchar00:
nmap <SID>getchar20:5 <SID>append:5<SID>getchar11:
nmap <SID>getchar20:6 <SID>append:6<SID>getchar20:
nmap <SID>getchar20:7 <SID>append:7<SID>getchar00:
nmap <SID>getchar20:8 <SID>append:8<SID>getchar10:
nmap <SID>getchar20:9 <SID>append:9<SID>getchar20:
nmap <SID>getchar20:<Esc> <SID>(result:number)
nmap <SID>getchar21:0 <SID>append:0<SID>getchar21:
nmap <SID>getchar21:1 <SID>append:1<SID>getchar00:
nmap <SID>getchar21:2 <SID>append:2<SID>getchar10:
nmap <SID>getchar21:3 <SID>append:3<SID>getchar20:
nmap <SID>getchar21:4 <SID>append:4<SID>getchar00:
nmap <SID>getchar21:5 <SID>append:5<SID>getchar11:
nmap <SID>getchar21:6 <SID>append:6<SID>getchar20:
nmap <SID>getchar21:7 <SID>append:7<SID>getchar00:
nmap <SID>getchar21:8 <SID>append:8<SID>getchar10:
nmap <SID>getchar21:9 <SID>append:9<SID>getchar20:
nmap <SID>getchar21:<Esc> <SID>(result:buzz)

nnoremap <SID>append:0 a0<Esc>
nnoremap <SID>append:1 a1<Esc>
nnoremap <SID>append:2 a2<Esc>
nnoremap <SID>append:3 a3<Esc>
nnoremap <SID>append:4 a4<Esc>
nnoremap <SID>append:5 a5<Esc>
nnoremap <SID>append:6 a6<Esc>
nnoremap <SID>append:7 a7<Esc>
nnoremap <SID>append:8 a8<Esc>
nnoremap <SID>append:9 a9<Esc>

nnoremap <SID>(result:fizz) ccFizz<CR><Esc>
nnoremap <SID>(result:buzz) ccBuzz<CR><Esc>
nnoremap <SID>(result:fizzbuzz) ccFizzBuzz<CR><Esc>
nnoremap <SID>(result:number) o<Esc>

2016-10-29Vim のマッピングとレジスタを使って FizzBuzz このエントリーのブックマークコメント

なんか Gist の script タグを貼ったら「編集」のリンクが出なくなってしまった…

のでわざわざ http://fizzbuzz.g.hatena.ne.jp/tyru/edit?date=20161029URL に打ち込んで飛んだ。

→Gist に複数ファイル含めるようにしたので、やっぱり直接貼り付けるようにした。

https://gist.github.com/tyru/6e17ca16203f0e1a3a26c95e30c94e3c

"
" fizzbuzz-register.vim - FizzBuzz by mappings & register @n
"
" Mapping Flow:
" 1. doit
" 2. getchar:entry:{num}
" 3. getchar:{num}
" 4. fizzbuzz:{type}
"

nmap     <expr> doit join(map(range(1, 100), '"<SID>getchar:entry:".v:val."\<Esc>"'),'')

nmap     <expr> <SID>getchar:entry [setreg('n', '', 'c'), "<SID>getchar"][1]
nmap     <expr> <SID>getchar:0 [setreg('n', @n.'0', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:1 [setreg('n', @n.'1', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:2 [setreg('n', @n.'2', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:3 [setreg('n', @n.'3', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:4 [setreg('n', @n.'4', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:5 [setreg('n', @n.'5', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:6 [setreg('n', @n.'6', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:7 [setreg('n', @n.'7', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:8 [setreg('n', @n.'8', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:9 [setreg('n', @n.'9', 'c'), "<SID>getchar:"][1]
nmap     <expr> <SID>getchar:<Esc> "<SID>fizzbuzz:".str2nr((@n%5==0).(@n%3==0), 2)

nnoremap <expr> <SID>fizzbuzz:0 "o".@n."\<Esc>"
nnoremap        <SID>fizzbuzz:1 oFizz<Esc>
nnoremap        <SID>fizzbuzz:2 oBuzz<Esc>
nnoremap        <SID>fizzbuzz:3 oFizzBuzz<Esc>

2016-10-06

Java 8 で FizzBuzz

23:20 | はてなブックマーク - Java 8 で FizzBuzz - id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記 Java 8 で FizzBuzz - id:tyruが<del>毎日</del>気が向いたらFizzBuzzを一生懸命書く日記 のブックマークコメント

package fizzbuzz;

import java.util.Optional;
import java.util.stream.IntStream;

public class FizzBuzz {

	/**
	 * Usage: java FizzBuzz [{from (default: 1)} [{to (default: 100)}]]
	 */
	public static void main(String[] args) {
		int min = Optional.ofNullable(args.length >= 1 ? tryParse(args[0], 1) : null).orElse(1);
		int max = Optional.ofNullable(args.length >= 2 ? tryParse(args[1], 100) : null).orElse(100);
		IntStream.rangeClosed(min, max).mapToObj(FizzBuzz::fizzbuzz).forEach(System.out::println);
	}

	private static Integer tryParse(String str, int def) {
		try {
			return Integer.parseInt(str);
		} catch (NumberFormatException e) {
			System.err.println("Invalid argument(" + str + "): '" + def + "' will be used instead.");
			return null;
		}
	}

	private static String fizzbuzz(int n) {
		return n % 15 == 0 ? "FizzBuzz" :
		       n % 5 == 0 ? "Buzz" :
		       n % 3 == 0 ? "Fizz" : n + "";
	}
}

2010-07-31Perl 6 このエントリーのブックマークコメント

クリスマスの日(2日前)にやればよかった...

use v6;

for 1..100 -> $n {
    given $n % 3 == 0, $n % 5 == 0 {
        when 0, 0 { say $n }
        when 0, 1 { say "Buzz" }
        when 1, 0 { say "Fizz" }
        when 1, 1 { say "FizzBuzz" }
    }
}


追記:

はてなさんsyntax=perl6対応おねがいします!

公式ではとっくにperl6用のシンタックスファイルが書かれているし*1

shebangにperl6を含んでいたら検知するようにもなってるし、

*.p6とか*.pm6の拡張子を持つファイルを開いたら自動的にハイライトするようにもなってますよ!*2

*1::help added-7.3

*2:あ、ちなみにパッチ送ったのは僕です、えへへ

2010-07-20Python このエントリーのブックマークコメント

ちょっと前にPythonでBFインタプリタを作って絶賛放置中なのでなんとなく。

#!/usr/bin/env python
# coding: utf-8


def do_fizzbuzz(i):
	if i % 15 == 0:
		return "FizzBuzz"
	elif i % 5 == 0:
		return "Buzz"
	elif i % 3 == 0:
		return "Fizz"
	else:
		return str(i)

def fizzbuzz(*args):
	for i in apply(range, args):
		yield do_fizzbuzz(i)

def main():
	for s in fizzbuzz(1, 100):
		print s

if __name__ == '__main__':
	main()

便利だと思ったもの

  • ジェネレータ
  • シーケンス型
    • x in y, x not in y
    • 文字列が普通にシーケンス型として扱えることに感動した。Vimスクリプトいじりすぎて感覚がズレてる...
  • デコレータ

内包表記は速いらしいから使ってるけど別になくてもいいというか。

あとlambdaが式しかとれないのはなんでだろう。