Skip to content

Instantly share code, notes, and snippets.

@AiziChen
AiziChen / udp-client.rkt
Last active April 17, 2022 10:18
UDP server/client and synchronize event
#lang racket/base
(require racket/udp)
(define udp (udp-open-socket))
(udp-send-to udp "ip-address" 12345 #"hello")
@AiziChen
AiziChen / beta.rkt
Last active August 25, 2021 11:18
Racket dynamic reload
#lang racket/base
(provide beta)
(require "alpha.rkt")
(define beta alpha)
@AiziChen
AiziChen / README.md
Last active November 17, 2022 09:01
Minimal x86 boot sector written by nasm-style assembly

Minimal x86 boot sector written by nasm-style assembly

tools requirement

nasm & qemu emulator

  1. Install nasm, then run these command:
nasm -f bin -o boot.bin boot-sector.asm
@AiziChen
AiziChen / README.md
Last active September 28, 2021 02:29
google authentication base on time

google authentication base on time in Racket Programming Language

How to use

following these steps below:

  1. install package racket-base32:
raco pkg install https://github.com/sackpost/racket-base32.git
@AiziChen
AiziChen / aarch64-install-chezscheme.md
Last active November 17, 2022 08:55
INSTALL CHEZ-SCHEME ON AARCH64 ARCHITECTCHURE LINUX SYSTEM

INSTALL CHEZ-SCHEME ON AARCH64 ARCHITECTCHURE LINUX SYSTEM

First Step

install gcc-arm-linux-gnueabihf via:

sudo apt install gcc-arm-linux-gnueabihf

Second Step

@AiziChen
AiziChen / zb-news.rkt
Created January 6, 2022 03:24
开源众包最新需求列表获取
#lang racket/base
(require racket/set
net/http-easy
gregor)
(define (get-news type page)
(define rs
(get "https://zb.oschina.net/project/contractor-browse-project-and-reward"
#:params
@AiziChen
AiziChen / MainMonitor.swift
Last active July 16, 2024 03:07
Get display name and display mode from NSScreen
//
// MainMonitor.swift
// swift-test-app
//
// Created by quanye on 10/26/21.
//
extension NSScreen {
/**
Get the monitor name of `Screen`
@AiziChen
AiziChen / r2-interpreter.rkt
Last active November 17, 2022 08:49
a very simple interpreter
#lang racket/base
(require racket/match)
(define env0 '())
(define ext-env
(lambda (x v env)
(cons `(,x . ,v) env)))