haruo-wakakusa

## blood+.lisp
(defun string->symbol (str)
  (let ((symb (read-from-string str))) symb))

(let* (
  (people nil)
  (get-state (lambda (blood)
    (cond ((<= blood 0) "死亡しました。")
          ((= blood 1) "瀕死です。")
          ((= blood 2) "貧血です。")
          ((= blood 3) "気分が優れないみたいです。")

## pi1.lisp
; pi1.lisp

(defconstant +unit+ (expt 10 100))
(defconstant +iter-times+ 6)

(defun fixed-mult (n m) (floor (/ (* n m) +unit+)))
(defun fixed-sqr (n) (fixed-mult n n))
(defun fixed-div (n d) (floor (/ (* n +unit+) d)))

(defun fixed-sqrt (n)

## boolean_attribute_html5.html
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Boolean Attribute Sample</title>
</head>
<body>
<input type="text" disabled>
<input type="text" disabled="disabled">
<input type="text" disabled="foo bar baz">

## Main.java
// https://teratail.com/questions/107057
import java.util.Deque;
import java.util.ArrayDeque;

public class Main {
    public static final int RECURSION = 0;
    public static final int PRINT = 1;

    public static void recur3(int n) {
        // Javaのドキュメントによると、Stackクラスの代わりに

## 戯言20180101.txt
数学は、出る何処勝負です。統計も信号解析もアルゴリズム論も暗号理論も、
案件に携わってから勉強なさるのがよいのではないでしょうか。
基礎的な素養を付けたいのでしたら、AOJと「アルゴリズムイントロダクション」の組み合わせがおすすめです。

逆に、数学科の人は、転職活動をかけまくって、自分が専攻していた分野を丁度やっている企業を調査するのが
よろしいかと思います。多くの人に、自分の職務経歴書を見てもらうのです。
そうすれば、自分が得意な分野の仕事に就くことができるかと思います。

--- 2018/1/1 10:11 追記
まあ、20代前半の人には分からないかもしれないんですけど、10代から20代の間って勉強が結構できたりするんですよ。

## prime.out
bbcbcbcdbdcbcddbdcbdcdecbcbchcdbfbddcddbfbcbggcbcdbfdddbdcbfhcbchdfbcdeddcdecefbfbdcdecbcgececdgbjdfddbdfddbddcbgfbcddbgcdefefeddcedcechfgbfbcbfhcbchcbckcefecddhcddedgcdbfbdfbfbdjcbcddeddlbfefddegcddbdgfjbcdbdcbcgbdrddejfhcbcdecbdgfbcbcdggegdcdecechcdbcdbdfkdcbmcbfgbfedddjdcbgfgeihdcbcbfgddjbibldedcbcedfbfhfdgbcbfgbibdcbfejmcdeibceibceddcgbldbdcdhdcbdcdgddhcdgedcnjfecdbdlgbiecghfbceddcbcdecbdfbfechfgbdcbihcdedcjefddefghcddbobfechcegdgcdkfbincbgdcgdecelbcbgobdddcdbgcgbfbibidkiecbcblegdfbcdbdfbgfbfhdcdeddigbchdcefeddldbfhcdjbfhcbfhcejcdbcdbgcklgbcddbdlbdidgbdgibcdhcbjmfdbfbfbfdbfbfdepfbfedfjdggbjdcddjbfhdcbcmbgdieddjibcdbddfdggjbdcjemcbcdbgchpfdghdfgbcdedfbchddcdbfbigejcdgbdddodhcefegjcbcmgdbiddhfhcpdddedcbgdcbdldbcjbcgbdcnddcefqibdcbcbfhdcefdkcbdpcefddedgcdbdcdbfbidkcghodkcjedcdhddfbfgefbfegfmbcedcejfddbdfgbfdddedfdbdddfemdlbjcefpejcbfdbdcjegjidbgdfbfbdfhcmbibfbfkcbceiddbgiecdpbfbdcddedcgdegchgfmdgdblejfdhcbdfedcdphfbgfbibjmjdijdbjcdbfefddecdbfbgcddbgchjcdkcedcechdchgcbpcmddgghdcbcjdgedcgbgpibdlhdfgdbcefddmhdc

## recommend_2d.html
<!DOCTYPE html>
<html>
<head>
<title>やっぱ２次元でしょ！</title>
<style>
p { margin: 1em; padding: 5px; text-align: center; }
rb { font-size: 6em; padding: 0px; }
rp { font-size: 10em; }
rt { font-size: 2em; }
#yappa, #desyo { font-size: 5em; }

## gacha.html
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>ガチャ限界突破計算機</title>
</head>
<body>
<p>ガチャ限界突破計算機</p>
<form name="form1">
  限界突破回数の成功確率計算<br>

## claris-indent.html
<!DOCTYPE html>
<head>
<script>

function toClarisStringCase(str) {
  let ary = str.toLowerCase().split('');
  ary[0] = ary[0].toUpperCase();
  ary[ary.length - 1] = ary[ary.length - 1].toUpperCase();
  return ary.join('');
}

## generation-repetition-string.lisp
; generate-repetition-string.lisp

(defun generate-repetition-string (char length)
  (with-output-to-string (stream)
    (dotimes (_ length)
      (write-char char stream))))

(defun generate-repetition-string-2 (char length)
  (let* ((seg-len 100)
         (seg (generate-repetition-string char seg-len))
	(defun string->symbol (str)
	(let ((symb (read-from-string str))) symb))

	(let* (
	(people nil)
	(get-state (lambda (blood)
	(cond ((<= blood 0) "死亡しました。")
	((= blood 1) "瀕死です。")
	((= blood 2) "貧血です。")
	((= blood 3) "気分が優れないみたいです。")
	; pi1.lisp

	(defconstant +unit+ (expt 10 100))
	(defconstant +iter-times+ 6)

	(defun fixed-mult (n m) (floor (/ (* n m) +unit+)))
	(defun fixed-sqr (n) (fixed-mult n n))
	(defun fixed-div (n d) (floor (/ (* n +unit+) d)))

	(defun fixed-sqrt (n)
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="UTF-8">
	<title>Boolean Attribute Sample</title>
	</head>
	<body>
	<input type="text" disabled>
	<input type="text" disabled="disabled">
	<input type="text" disabled="foo bar baz">
	// https://teratail.com/questions/107057
	import java.util.Deque;
	import java.util.ArrayDeque;

	public class Main {
	public static final int RECURSION = 0;
	public static final int PRINT = 1;

	public static void recur3(int n) {
	// Javaのドキュメントによると、Stackクラスの代わりに
	数学は、出る何処勝負です。統計も信号解析もアルゴリズム論も暗号理論も、
	案件に携わってから勉強なさるのがよいのではないでしょうか。
	基礎的な素養を付けたいのでしたら、AOJと「アルゴリズムイントロダクション」の組み合わせがおすすめです。

	逆に、数学科の人は、転職活動をかけまくって、自分が専攻していた分野を丁度やっている企業を調査するのが
	よろしいかと思います。多くの人に、自分の職務経歴書を見てもらうのです。
	そうすれば、自分が得意な分野の仕事に就くことができるかと思います。

	--- 2018/1/1 10:11 追記
	まあ、20代前半の人には分からないかもしれないんですけど、10代から20代の間って勉強が結構できたりするんですよ。
	<!DOCTYPE html>
	<head>
	<script>

	function toClarisStringCase(str) {
	let ary = str.toLowerCase().split('');
	ary[0] = ary[0].toUpperCase();
	ary[ary.length - 1] = ary[ary.length - 1].toUpperCase();
	return ary.join('');
	}
	; generate-repetition-string.lisp

	(defun generate-repetition-string (char length)
	(with-output-to-string (stream)
	(dotimes (_ length)
	(write-char char stream))))

	(defun generate-repetition-string-2 (char length)
	(let* ((seg-len 100)
	(seg (generate-repetition-string char seg-len))