tfkd

*background: #0f0f0f
*foreground: #c8c8c8

!black
*color0:  #251f1f
*color8:  #5e5e5e
!red
*color1:  #eb4509
*color9:  #eb4509
!green

tfkd

package main

import (
	"bufio"
	"fmt"
	"os"
	"strconv"
	"strings"
)

tfkd

use Mojolicious::Lite;
use utf8;
use Encode;

my @jobs = (
'ハングリーであれ、バカであれ。',
'皮肉の規模も大きいですね',
'アップルのシェアは、自動車業界におけるBMWやベンツ、ポルシェよりも大きい。BMWやベンツであることの何が悪いんだ？',
'これはそもそも画期的なものを作る才能がないときついかも。',
'消費者に、何がほしいかを聞いてそれを与えるだけではいけない。完成するころには、彼らは新しいものを欲しがるだろう。',

tfkd

package Net::Nepote;
use strict;
use warnings;
use utf8;
use Encode;
use Carp;
use URI;
use Web::Scraper;

sub new {

tfkd

#!/usr/bin/env perl
use Mojolicious::Lite;
use utf8;
use Encode;
use String::Similarity;

my @witticisms = qw();

# Naverまとめからもってきた名言をtxtファイルにもってきた
# とりあえずさっくりやってみる

tfkd

var address = ‘http://lantis-net.com/’;
var page = require(‘webpage’).create();

page.onConsoleMessage = function(msg) {
    console.log(msg);
};

page.open(address, function(status) {
    if (status !== “success”) {
        console.log(“Unable to access network”);

tfkd

#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Socket;
use Data::MessagePack;
use Data::MessagePack::Stream;
use Data::Dumper;

my $cv = AnyEvent->condvar;

tfkd

#!/usr/bin/env perl
use strict;
use warnings;

my $append; $append = sub {
    my ($X, $Y) = @_;
    if (0 == scalar @$X) {
        return $Y;
    }
    else {

tfkd

%% fizzbuzz
fizzbuzz(N) ->
    if
	N rem 15 == 0 ->
	    io:fwrite("~w~n", [fizzbuzz]);
	N rem 3 == 0 ->
	    io:fwrite("~w~n", [fizz]);
	N rem 5 == 0 ->
	    io:fwrite("~w~n", [buzz]);
	true ->

tfkd

% Solve N queen problem.
% お勉強中です
% queenの置き順も区別しちゃってるのでむちゃくちゃ解がでてくる
nlist(1,[1]).
nlist(N,L) :-
	N > 1,
	N1 is N-1,
	nlist(N1,L1),
	append(L1,[N],L).
on_nboard(N,[X,Y]) :-