日志
2021.11.4的记忆
热度 2 |
说起来，今天是开华生日啊……我能做的也就是送一句诚挚的祝福了，不过今天的工作还是应该完成的。
经过昨晚的整改，一切似乎都顺利起来了。他早上还自信的夸下海口，说今天起将杜绝凶兆的产生（然后今天就凶兆+4，还好骰子里有5，没结算凶兆）。
他抵抗刺激的能力太差了，情绪很容易波动，之后便会无意中打破原先计划。另外习惯真是不容易改变，稍微松懈就容易落入无意识的陷阱。
今天的实际表现来看，他并没有达到专心致志的程度，或者说……他的大部分时候都是无志的状态，得不断提醒才能回到正轨（也还好能回）。
其实他清醒的时候，主观上是真的很想努力。但是就是清醒不了太久。
可能是我的筹码还不够重吧，没有在他的潜意识里产生足够的分量。
今天是他的生日，就不追究了，重振旗鼓后明天再一起努力吧。
莫邪前辈帮帮我们吧！
全部作者的其他最新日志
发表评论 评论 (5 个评论)
- 回复 你好F8
- # C语言
## C数据组合
~~~c
struct
{
double x;
double y;
}pointA;
~~~
这里我们创建了一个变量A，它是x和y的组合。
## C数据抽象
~~~c
typdef struct
{
double x;
double y;
}pointT;
~~~
这里我们创建了一个类型，它可能代表坐标上的点，每一个这个类型的变量都记录了它和x,y轴的距离。
## C函数抽象和函数组合
~~~c
// 点到点的距离，此处即为一个抽象
double distance(pointT p1, pointT p2)
{
// ... 此处省略实现
}
// 函数的组合
double distanceToZero(pointT p)
{
pointT p0 = {0, 0};
return distance(p, p0);
}
~~~
- 回复 你好F8
- #lang racket/base
(require racket/function
compatibility/mlist)
(define-values (copy-list reverse list->mlist copy-mlist mreverse mlist->list)
(let ()
(define ((make s-car s-cdr s-end? t-cons t-start return) l)
(let loop ([l l] [res t-start])
(if (s-end? l)
((return) res)
(loop (s-cdr l) (t-cons (s-car l) res)))))
(values (make car cdr null? cons '() (λ () reverse))
(make car cdr null? cons '() (λ () identity))
(make car cdr null? mcons '() (λ () mreverse))
(make mcar mcdr null? mcons '() (λ () mreverse))
(make mcar mcdr null? mcons '() (λ () identity))
(make mcar mcdr null? cons '() (λ () reverse)))))
(equal? (copy-list (list 1 2 3)) (list 1 2 3))
(equal? (reverse (list 1 2 3)) (list 3 2 1))
(equal? (list->mlist (list 1 2 3)) (mlist 1 2 3))
(equal? (copy-mlist (mlist 1 2 3)) (mlist 1 2 3))
(equal? (mreverse (mlist 1 2 3)) (mlist 3 2 1))
(equal? (mlist->list (mlist 1 2 3)) (list 1 2 3))