JaHIY

#!/usr/local/opt/tcl-tk/bin/tclsh

package require Tcl 8.6

proc with {args} {
    set lengthOfArgs [llength $args]
    if {($lengthOfArgs % 2) == 0} {
        return -code error {wrong # args: should be "with ?varName1 channelId1 varName2 channelId2 ...? command"}
    }
    if {$lengthOfArgs == 1} {

JaHIY

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use 5.014;

use Data::Dumper;

sub flatten (+) {

JaHIY

my %h = <.--.-. @ ...-..- $ .-..-. " ..--.- _ -....- - .-.-. + -...- = -.-.-. ; ---... : ----- 0 ----. 9 ---.. 8 --... 7 -.... 6 ..... 5 ....- 4 ...-- 3 ..--- 2 .---- 1 .--.-. @ -..-. / ..--.. ? --..-- , .-.-.- . --.. Z -.-- Y -..- X .-- W ...- V ..- U - T ... S .-. R --.- Q .--. P --- O -. N -- M .-.. L -.- K .--- J .. I .... H --. G ..-. F . E -.. D -.-. C -... B .- A>; for lines() { say .split(/<space>/).map({ %h{$_} // $_ }).join }

JaHIY

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use 5.010;

use Data::Dumper;
use Type::Params qw(compile);
use Types::Standard -types;

JaHIY

#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <stdbool.h>

int main(void) {
    const uint8_t base64chars[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
    uint32_t buf = 0;
    int8_t iter = 0;
    bool enter_loop = true;

JaHIY

#!/bin/sh -

substr() {
    awk -v s="$1" -v i="$2" -v l="$3" 'BEGIN { print substr(s, i+1, l); }'
}

index() {
    awk -v s="$1" -v c="$2" 'BEGIN { print index(s, c) - 1; }'
}

JaHIY

#!/bin/sh -

calc() {
    printf '%s\n' \
        'define bit_and (x, y) {
            auto min, max, d, i, ret
            i = 1
            ret = 0
            if (x > y) {
                min = y

JaHIY

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use 5.014;
use experimental qw/smartmatch/;

use Carp qw/croak/;
use Data::Dumper;

JaHIY

{
    "hacfun":[
        "|∀ﾟ",
        "(´ﾟДﾟ`)",
        "(;´Д`)",
        "(｀･ω･)",
        "(=ﾟωﾟ)=",
        "| ω・´)",
        "|-` )",
        "|д` )",

JaHIY

#!/usr/bin/env perl

use strict;
use warnings;
use utf8::all;

use Carp;
use HTTP::Tiny;
use JSON qw(decode_json);
use Template;