mnzk mnzk

## addr.py
template ='''
<html lang="ja">
  <head>
    <meta charset="UTF-8" />
    <title>CANVAS001</title>
    <link rel="stylesheet" type="text/css" href="v.css">
  </head>
  <body>
     <div class="box-layer-1">
	<div class="box box-left"><div class="from-blank-box"></div><div class="from-name vertical">蜿､隹ｷ謨ｬ騾�</div><div class="from-address vertical">蜊玲袷邱丞ｸら區豬懃伴譬ｹ譛ｬ荳蜈ｫ荳荳</div><div class="from-post-number">2950104</div></div>

## nenga.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                mnzk
                / nenga.md
            
            
              Created
              December 24, 2016 08:42
            
          
    http://yubin-nenga.jp/search/eto/
https://www.microsoft.com/ja-jp/office/pipc/season/nengajo/02.aspx
https://online.brother.co.jp/ot/dl/Contents/nenga/nenga_basic/

  
## solve24.rkt
#lang racket

(require (only-in srfi/26 cute))

(define-syntax t>=
  (syntax-rules ()
    ((_ x) x)
    ((_ x f g ...) (t>= (f x) g ...))))

(define (solve24 n)

## lazy-perm.rkt
#lang racket

(for ((lst (in-permutations (range 10)))
      (i (in-range 5)))
  (displayln `(,i ,lst)))


(require racket/generator)

(let ((g (sequence->generator (in-permutations (range 10)))))

## racket-class-generic.rkt
#lang racket

(define sprite<%> (interface () draw))
(define draw (generic sprite<%> draw))

(define pix%
  (class* object% (sprite<%>)
    (super-new)
    (define/public (draw)
      'pix-draw)))

## spnz.js
// spinoza for Nashorn shell (jjs)
// original code => https://github.com/kenokabe/spinoza

// [usage example]
//
// > jjs
// jjs> load("spnz.js")
// ===== spinoza =====
// jjs> world = $(1)(2)(3)(out)
// world-> 1,2,3

## mycompose.rkt
#lang racket

(provide mycompose1
         mycompose)

(define-syntax mycompose1
  (syntax-rules ()
    ((_) values)
    ((_ f1 f2 ...)
     (lambda arglist (mycompose1$ arglist f1 f2 ...)))))

## linq.xml.clj
(System.Reflection.Assembly/LoadWithPartialName "System.Xml.Linq")

(ns linq.xml
  (:import [System.Xml.Linq XDocument XElement XAttribute XNode])
  (:import [System.IO MemoryStream StreamReader])
  (:import [System.Text Encoding])
  (:gen-class))

(defmacro ^:private local-name [node]
  `(.. ~node Name LocalName))

## clojureclr-simple-repl.clj
(ns program
  (:import System.IO.EndOfStreamException)
  (:import clojure.lang.Compiler+CompilerException)
  (:gen-class))

(defn try-eval [line v]
  (let [v (conj v (str "\n" line))]
    (try
      [true (-> (apply str v) read-string eval) []]
      (catch EndOfStreamException e [false nil v])

## draw-text-rotate.rkt
#lang racket
(require racket/gui)

(define font (make-font #:size 40
                        #:size-in-pixels? #t
                        #:face "HGGyoshotai"))
(define font-size (send font get-point-size))
(define font-size-half (/ font-size 2))

(define rotate-text-hash '#hash(("ー" . #t)))
	template ='''
	<html lang="ja">
	<head>
	<meta charset="UTF-8" />
	<title>CANVAS001</title>
	<link rel="stylesheet" type="text/css" href="v.css">
	</head>
	<body>
	<div class="box-layer-1">
	<div class="box box-left"><div class="from-blank-box"></div><div class="from-name vertical">蜿､隹ｷ謨ｬ騾�</div><div class="from-address vertical">蜊玲袷邱丞ｸら區豬懃伴譬ｹ譛ｬ荳蜈ｫ荳荳</div><div class="from-post-number">2950104</div></div>
	#lang racket

	(require (only-in srfi/26 cute))

	(define-syntax t>=
	(syntax-rules ()
	((_ x) x)
	((_ x f g ...) (t>= (f x) g ...))))

	(define (solve24 n)
	#lang racket

	(for ((lst (in-permutations (range 10)))
	(i (in-range 5)))
	(displayln `(,i ,lst)))


	(require racket/generator)

	(let ((g (sequence->generator (in-permutations (range 10)))))
	#lang racket

	(define sprite<%> (interface () draw))
	(define draw (generic sprite<%> draw))

	(define pix%
	(class* object% (sprite<%>)
	(super-new)
	(define/public (draw)
	'pix-draw)))
	// spinoza for Nashorn shell (jjs)
	// original code => https://github.com/kenokabe/spinoza

	// [usage example]
	//
	// > jjs
	// jjs> load("spnz.js")
	// ===== spinoza =====
	// jjs> world = $(1)(2)(3)(out)
	// world-> 1,2,3
	#lang racket

	(provide mycompose1
	mycompose)

	(define-syntax mycompose1
	(syntax-rules ()
	((_) values)
	((_ f1 f2 ...)
	(lambda arglist (mycompose1$ arglist f1 f2 ...)))))
	(System.Reflection.Assembly/LoadWithPartialName "System.Xml.Linq")

	(ns linq.xml
	(:import [System.Xml.Linq XDocument XElement XAttribute XNode])
	(:import [System.IO MemoryStream StreamReader])
	(:import [System.Text Encoding])
	(:gen-class))

	(defmacro ^:private local-name [node]
	`(.. ~node Name LocalName))
	(ns program
	(:import System.IO.EndOfStreamException)
	(:import clojure.lang.Compiler+CompilerException)
	(:gen-class))

	(defn try-eval [line v]
	(let [v (conj v (str "\n" line))]
	(try
	[true (-> (apply str v) read-string eval) []]
	(catch EndOfStreamException e [false nil v])
	#lang racket
	(require racket/gui)

	(define font (make-font #:size 40
	#:size-in-pixels? #t
	#:face "HGGyoshotai"))
	(define font-size (send font get-point-size))
	(define font-size-half (/ font-size 2))

	(define rotate-text-hash '#hash(("ー" . #t)))