Koichi SATO sekia

## dotenv.sh
#!/bin/zsh

set -e

file=$(pwd)/.env
if [[ ! -e $file ]]; then
    echo File not found: $file > /dev/stderr
    exit 1
fi

## show-total-price-of-amazon-jp-auto-delivery.user.js
// ==UserScript==
// @name     Show total price of incoming auto delivery on Amazon.co.jp
// @version  1
// @grant    none
// @match    https://www.amazon.co.jp/auto-deliveries*
// @exclude  /^https:\/\/www\.amazon\.co\.jp\/auto-deliveries\/[^?]/
// ==/UserScript==

/**
 * Each .subscription-price-container element has price of corresponding item in JPY and (optinally) purchasing quantity.

## placement.cc
#include <array>
#include <bitset>
#include <cstddef>
#include <cstdio>
#include <cstdlib>
#include <memory>
#include <new>
#include <utility>
#include <vector>

## content.html
<!DOCTYPE html>
<html>
  <head>
    <meta charset="UTF-8" />
    <title>IFrame Content</title>
  </head>
  <body>
    <form id="ui-container">
      <input id="ui" />
      <button type="submit">Apply Changes</button>

## data.js
// @flow

export type A = 'A';

export type B = 'B';

export type T = A | B;

export function isA(data: T): %checks {
  return data === 'A';

## classify_zh_sentence.pl
#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature qw/say state/;
use Algorithm::LibLinear;
use Lingua::ZH::Jieba;  # Word segmentor for Chinese language.
use Text::Ngrams;  # Language-independent n-gram generator.

## pun.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use PadWalker qw/var_name/;

my $foo = 42;
my $bar = 'blah blah blah';
my $baz = undef;

## actor.ml
let () =
  let n = int_of_string Sys.argv.(1) in
  let open Lwt.Infix in
  let ping = Lwt_mvar.create_empty () in
  let rec consumer () =
    Lwt_mvar.take ping >>= function
    | false -> Lwt.return_unit
    | true -> print_endline "ping"; consumer () in
  let producer () =
    let rec loop i = Lwt_mvar.put ping (i < n) >>= fun () -> loop (i + 1) in

## mnist.cc
#include <algorithm>
#include <arpa/inet.h>
#include <cstdint>
#include <cstdio>
#include <fstream>
#include <istream>
#include <numeric>
#include <set>
#include <stdexcept>
#include <string>

## float_cmp.cc
#include <algorithm>
#include <cstdint>
#include <cstdio>
#include <limits>

using namespace std;

template <size_t Bits>
struct IntegerTrait {};
	#!/bin/zsh

	set -e

	file=$(pwd)/.env
	if [[ ! -e $file ]]; then
	echo File not found: $file > /dev/stderr
	exit 1
	fi
	// ==UserScript==
	// @name Show total price of incoming auto delivery on Amazon.co.jp
	// @version 1
	// @grant none
	// @match https://www.amazon.co.jp/auto-deliveries*
	// @exclude /^https:\/\/www\.amazon\.co\.jp\/auto-deliveries\/[^?]/
	// ==/UserScript==

	/**
	* Each .subscription-price-container element has price of corresponding item in JPY and (optinally) purchasing quantity.
	#include <array>
	#include <bitset>
	#include <cstddef>
	#include <cstdio>
	#include <cstdlib>
	#include <memory>
	#include <new>
	#include <utility>
	#include <vector>
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="UTF-8" />
	<title>IFrame Content</title>
	</head>
	<body>
	<form id="ui-container">
	<input id="ui" />
	<button type="submit">Apply Changes</button>
	// @flow

	export type A = 'A';

	export type B = 'B';

	export type T = A \| B;

	export function isA(data: T): %checks {
	return data === 'A';
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use utf8;
	use feature qw/say state/;
	use Algorithm::LibLinear;
	use Lingua::ZH::Jieba; # Word segmentor for Chinese language.
	use Text::Ngrams; # Language-independent n-gram generator.
	let () =
	let n = int_of_string Sys.argv.(1) in
	let open Lwt.Infix in
	let ping = Lwt_mvar.create_empty () in
	let rec consumer () =
	Lwt_mvar.take ping >>= function
	\| false -> Lwt.return_unit
	\| true -> print_endline "ping"; consumer () in
	let producer () =
	let rec loop i = Lwt_mvar.put ping (i < n) >>= fun () -> loop (i + 1) in
	#include <algorithm>
	#include <arpa/inet.h>
	#include <cstdint>
	#include <cstdio>
	#include <fstream>
	#include <istream>
	#include <numeric>
	#include <set>
	#include <stdexcept>
	#include <string>