sugyan

記号だけで書く Perl (punctuation-only Perl)

ASCII の記号（[[:punct:]] = !"#$%&'()*+,-./:;<=>?@[\]^_{|}~`）だけで書かれた、 実際に動く Perl プログラム集。英数字・空白は 1 文字も使っていません。

perl japh.pl        # Just another Perl hacker,
perl hello-ja.pl    # こんにちは、記号だけの世界！
perl fizzbuzz.pl    # FizzBuzz 1..100
perl sierpinski.pl # シェルピンスキーのピラミッド (AA)

sugyan

"Accomplishing"
"Actioning"
"Actualizing"
"Baking"
"Booping"
"Brewing"
"Calculating"
"Cerebrating"
"Channelling"
"Churning"

sugyan

const express = require('express');
const fs = require('fs');
const path = require('path');
const os = require('os');

const app = express();
const PORT = process.env.PORT || 3000;

class ChatLogParser {
    constructor() {

sugyan

import { createServer, IncomingMessage, ServerResponse } from "http";
import { createHash, randomBytes } from "node:crypto";
import { Key } from "@atproto/jwk";
import {
  OAuthClient,
  InternalStateData,
  Session,
  DigestAlgorithm,
} from "@atproto/oauth-client";
import { AtprotoHandleResolverNode } from "@atproto-labs/handle-resolver-node";

sugyan

(chop,utf8::decode$_)^print/(\X)\X?/g,$",/\X(\X)/g,$/for<>

sugyan

use std::fmt::{Display, Formatter, Result, Write};

#[derive(Clone, Copy, PartialEq, Eq)]
enum Op {
    Add,
    Sub,
    Mul,
    Div,
}

sugyan

#![feature(test)]
extern crate test;

const NUM_ITER: usize = 10;

#[allow(dead_code)]
#[inline(always)]
fn pop_lsb(n: &mut u64) -> u32 {
    let ret = n.trailing_zeros();
    *n = *n & n.wrapping_sub(1);

sugyan

+1523KE: ▲2三桂右不成
+3523KE: ▲2三桂左不成

+1624KE: ▲2四桂右
+3624KE: ▲2四桂左

+1725KE: ▲2五桂右
+3725KE: ▲2五桂左

+1826KE: ▲2六桂右

sugyan

package main

import (
	"encoding/xml"
	"io"
	"log"
	"net/http"
	"time"
)

sugyan

package main

import (
	"context"
	"encoding/json"
	"log"

	"golang.org/x/oauth2"
	"golang.org/x/oauth2/fitbit"
)