墨衍会员
·
AI 创作全网分发
墨衍智能分发
本文由作者通过墨衍一键同步至各平台
1分发平台
500+累计阅读
515平均单平台
已同步平台
优快云
微信公众号
微博
知乎
掘金
百家号
博客园
抖音
小红书
你的文章也可以这样分发
墨衍会员 ¥399起/年，写一次发全网
我也要
（if (null? s)
'()
...)(define (subsets s)
(if (not (null? s)) (display (car s)))
(if (null? s)
'(nil)
(let ((rest (subsets (cdr s))))
(append rest (map (lambda (x) (cons (car s) x)) rest)))))
(subsets (list 1 2 3))
Matlab使用GitHub的踩坑记录（持续更新）
Matlab使用git的踩坑记录前言Matlab设置Git的官方帮助文档系统配置新建Git两种代码管理方式典型源代码管理SVN分布式源代码管理 Git注意：SVN和Git都可以用GitHub创建新的库 前言 作为Git初学者，对Git的代码版本管理非常非常喜欢，给了我极大的安全感。特别是想到之前的几次Matlab、Latex和python的代码莫名其妙被折腾没了又没法找回的悲剧，决定慢慢的走入gi...
sicp 习题2.32
这题真的不会 参考了一下别人的：(define (subsets s) (if (null? s) (list null) (let ((rest (subsets (cdr s)))) (append rest (map (lambda(x) (cons (car s) x)) rest))))) 和换零钱问题的思路是一样的，对于一个集合的所有子集的
解密微信DAT图片：一键转换JPG/PNG/GIF的实用指南
本文详细解析微信DAT图片的加密机制及转换方法，提供从定位文件到使用WeijieSoft工具一键转换JPG/PNG/GIF的完整指南。涵盖新旧版微信存储路径差异、批量处理技巧及常见问题解决方案，帮助用户高效恢复重要图片并释放存储空间。
sicp 2.32
Exercise 2.32. We can represent a set as a list of distinct elements, and we can represent the set of all subsets of the set as a list of lists. For example, if the set is (1 2 3), then the set of...
GPU资源池化：技术原理与应用场景全解析
GPU资源池化技术已成为AI时代高效利用算力的关键方案。该技术通过硬件虚拟化、容器化编排和智能调度三个核心层面，实现GPU资源的共享与优化，可将平均利用率从不足30%提升至60-80%。主流方案包括NVIDIA全栈解决方案、云原生Kubernetes生态及开源工具，适用于企业AI平台、大模型训练和边缘推理等场景。虽然面临性能隔离、资源碎片等挑战，但随着硬件虚拟化细化和AI驱动调度算法的发展，GPU池化正向着智能化、自动化方向演进，推动实现"算力如水电"的愿景。
弘玑RPA进阶攻略
01.弘玑RPA产品概要。02.设计器的安装与卸载。03.设计器特性与使用。
合规开发：开源自动化与图像识别替代大漠插件方案解析
图像识别与自动化操作是提升效率的关键技术，广泛应用于窗口处理、批量任务等场景。然而，依赖特定商业插件并绕过授权机制，不仅存在安全风险，也违背合规要求。随着开源生态的成熟，越来越多具有明确协议、由社区维护的自动化框架和图像识别库，能够稳定实现窗口识别、坐标定位、流程编排等功能。这些方案在本地部署、接口调用、批量任务处理等方面表现优异，并通过合规集成方式满足企业级需求。从技术选型到落地实践，合理拥抱开源方案，既能降低授权成本，又能保障系统安全性与可维护性。本文即围绕这一合规路径，探讨如何利用开源工具实现高效的自
雷达回波仿真
文章目录前言一、基础理解1.慢时间维度和快时间维度2.脉冲压缩3.MTI4. 脉冲多普勒处理5.cacfar检测二、具体流程1.产生回波信息加入目标时延以及噪声2.解调回波得到基带信号3.脉冲压缩 MTI MTD cafar检测 前言 雷达算法仿真学习，主要流程包括生成目标回波，将基带信号加在载波上其次是加上目标信息和干扰信号后发射，解调回波信号得到基带信号然后MTI,MTD,最后再检测。 一、基础理解 1.慢时间维度和快时间维度 连续M个脉冲回波经过相干解调之后的基带数据形成的一个二维数据矩阵，.
SICP_2.30-2.32
1 #lang racket 2 ;;;;;;;;;;;;;;;;;;;;;;2.30 3 (define (square-tree tree) 4 (cond ((null? tree) '()) 5 ((not (pair? tree)) (square tree)) 6 (else (cons (square-tree (car ...
uniapp [全端兼容] - 详细实现下拉筛选菜单功能组件，下拉式筛选菜单效果，类似电商美团点击筛选项底部弹出列表点击选择后自动收起（详细示例代码，全端兼容小程序、安卓苹果app、h5网页、nvue
uni-app，vue2，vue3，向下弹出菜单包含筛选功能，日期筛选，下拉框选择器，下拉多条件筛选，下拉式筛选菜单，uniApp如何实现条件下拉筛选，Uniapp官方条件筛选组件，下拉框式条件筛选插件组件，最好用的插件组件，多端兼容，下拉菜单筛选，过滤筛选列表，下拉筛选栏，多列联动的条件筛选，下拉菜单地区和筛选，微信小程序，支付宝小程序，h5网页，移动端网站，安卓app，苹果app，nvue，uniapp所有平台兼容，下拉菜单筛选，下拉式条件筛选，下拉列表，点击排序，级联筛选，uniapp实现下拉筛选
linux 内核OOM问题定位-SLAB_DEBUG
首先看slabinfo按的size排序查看 slub object,可以查看 space 总占用大小，及objects个数判断泄漏点 为kmalloc-128。那个泄露多看/sys/kernel/debug的slab/kmalloc*-的alloc-traces和free-traces。SLAB或者SLUB有一个用就可以，改menuconfig没有clean会覆盖之前的更改，现在看一下编译的过程。或者配置defconfig,配置完之后需要clean后再编译。1，配置menuconfig。
【SICP读书笔记（五）】练习2.32 --- 递归求集合子集
题目内容： 我们可以将一个集合表示为一个元素互不相同的表，因此就可以将一个集合的所有子集表示为表的表。例如，假定集合为(1,2,3)，它的所有子集的集合就是( () (3) (2) (2 3) (1) (1 3) (1 2) (1 2 3))。请完成下面过程的定义，它生成所有子集的集合，请解释它为什么能完成这一工作。 (define (subsets s) (if (null? ...
lwip-2.0.3
lwip是瑞典计算机科学院(SICS)的Adam Dunkels 开发的一个小型开源的TCP/IP协议栈。实现的重点是在保持TCP协议主要功能的基础上减少对RAM 的占用。
SICP 解题集
第一章练习1.15 a:p被使用啦5次 b:angle每乘以3，p多调用一次。空间和步数都为线性增长。 练习1.16 (cond [(= n 0) a] [(even? n) (first-e (square b) (/ n 2) a )] [(odd? n) (first-e b (- n 1) (* a b ))])) (define (square x)
VB摄像头监控
该VB模块可对摄像头捕获的画面进行录像等，可在创建的窗口进行控制
数学建模模型总结
这是本人在两年内准备参加数学建模竞赛搜集到的模型资料，已经经过了本人的筛选和整理，希望能够对准备参加数学建模竞赛的学弟学妹们提供一些帮助！
【SICP练习】61 练习2.31-2.32
练习2.31 我想说我已经越来越喜欢抽象了，将上一题中的map版本的square-tree抽象的方法是添加一个参数f，f是一个函数，因此将square替换成f即可。如下。 (define (map-tree f tree) (map (lambda (sub-tree) (if (pair? sub-tre...
IEM模型，地表粗糙度模拟
利用微波反演土壤水分时候，利用IEM模型可以实现对随机地表的模拟
SICP 习题2.19 重写count-change 过程
(define (cc amount coin-values) (cond ((= amount 0) 1) ((or (< amount 0) (no-more? coin-values)) 0) (else (+ (cc amount (except-first-denomination coin-values)) (cc (
SICP 练习1.35使用不动点发寻找黄金分割律
前几个输出是书上介绍不动点法的几个样例(define tolerance 0.00001)(define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess)))
SICP 习题2.8 区间减法
我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp
SICP 牛顿法求平方根
(define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)))(define (improve guess x) (average guess (/ x guess))) (define (average x y) (/ (+ x y) 2))(d
SICP 习题2.3 计算矩形面积和周长
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(define make-rect cons) (define s-rect car) (define e-rect cdr)(define make-point cons) (defi
SICP 习题1.36 使用不动点发寻找x^x = 1000的根
修改fixed-point过程，在let里修改即可(define tolerance 0.00001)(define (fixed-point f first-guess) (newline) (display first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (
SICP 换零钱问题
书上提到了迭代的算法，想到了完全背包，但是lisp功底太差，实现不了。(define (count-change amount) (cc amount 5))(define (cc amount kinds-of-coins) (cond ((= amount 0) 1) ((or (< amount 0) (= kinds-of-coins 0)) 0) (
SICP 习题2.42 八皇后问题
想不到第一次写八皇后问题是用的scm写代码的途中遇到一个错误，用let错了，用define对了，应该是编译器的原因，和nil差不多。(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr
SICP 习题2.33 用accumulate完成一些基本的表操作
这个accumulate比第一章完成更强大(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))))(define (map p sequence) (accu
SICP 练习1.7
这个是改进good-enough?函数，容易想到，guess (improve guess x) 分别是上一次迭代和下一次迭代的结果，那么就可以测量这个变化来改进good-enough?函数(define (sqrt-iter guess x) (if (good-enough? guess (improve guess x)) guess (sqrt-iter (improve
SICP 习题2.4 cons car cdr 用过程实现
(define (cons-a x y) (lambda (m) (m x y)))(define (car-a z) (z (lambda (p q) p)))(define (cdr-a z) (z (lambda (p q) q)))(define a (cons-a 1 2)) (newline) (display (car-a a)) (newline) (display (c
SICP 习题2.36 accumulate-n的实现
(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))))(define (accumulate-n op init seqs) (if (null? (car
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
7296
扫一扫
