Skip to content

Instantly share code, notes, and snippets.

Avatar

Yusuke Wada yusukebe

View GitHub Profile
@yusukebe
yusukebe / profile.md
Last active Aug 31, 2020
暇だったらこれみといて
View profile.md

暇だったらこれみといて

プロフィール

  • Yusuke Wada
  • 和田裕介
  • 1981年生まれ
  • Master of Media Design

略歴

@yusukebe
yusukebe / tradsimp.pl
Last active Mar 2, 2020
中国語の繁体字・簡体字へ変換する
View tradsimp.pl
use utf8;
use Unicode::Unihan;
use feature qw/say/;
binmode STDOUT, ":utf8";
my $original = "";
say $original; #
my $uh = Unicode::Unihan->new;
my $traditional = $uh->ZVariant($original);
View await.p6
await do for 1..10000 -> $i {
start {
parse($i);
}
}
sub parse($i) {
sleep 10 / 1000; # 時間のかかる処理をさせる
say $i;
}
View csv.p6
use Text::CSV;
# 最初にまるごとメモリに読み込んでる。改善できるところ
my @a = csv(in => "caribbean.csv");
await do for @a -> @line {
start {
parse(@line);
}
}
View fib.pl
use v5.16;
use strict;
use warnings;
sub fib {
my $n = shift;
if ($n == 0 || $n == 1) {
return $n;
}else{
return fib($n-1) + fib($n-2);
View csv.go
package main
import (
"bufio"
"encoding/csv"
"fmt"
"log"
"os"
"strings"
"time"
View shoboi.p6
# (ほぼ)mattnさんのコードまんまです
# https://mattn.kaoriya.net/software/lang/perl6/20151019183138.htm
grammar Shoboi::Grammar {
token num { <[0..9]> + }
token ident { <[a..z]> + }
token op { '+' || '-' || '*' || '/' }
token exp { <ident> || <num> }
token expr { <exp> | <exp> \s* <op> \s* <exp> }
token let { <ident> \s* '=' \s* <expr> }
@yusukebe
yusukebe / grammar-rest.p6
Last active Jan 26, 2020
Rakuのgrammarを使ってREST風URLをパースする
View grammar-rest.p6
# https://docs.perl6.org/language/grammar_tutorial このチュートリアルのコードです
grammar REST {
token TOP { <slash><subject><slash><command>[<slash><data>]? }
proto token command {*}
token command:sym<create> { <sym> }
token command:sym<retrieve> { <sym> }
token command:sym<update> { <sym> }
token command:sym<delete> { <sym> }
@yusukebe
yusukebe / app.js
Last active Jan 20, 2020
Vue.jsでメロディー・雛・マークスを出す
View app.js
new Vue({
el: '#app',
data: {
keyword: null,
stars: null,
loading: false,
errored: false
},
methods: {
click: function() {
View pornhub.pl
use v5.20;
use strict;
use warnings;
package WebService::Pornhub {
use Moo;
use Function::Parameters;
with 'WebService::Client';