当前位置: 首页 > news >正文

习题2.1

先上代码

(def number first)
(def denom last)
(defn print-rat [x](println) (print (number x)) (print "/") (println (denom x)))
;(defn make-rat [n d](let [g (gcd n d)] (list (/ n g) (/ d g) )  ))
;旧版


(defn abs [x] (if (< x 0) (- 0 x) x))
(defn % [a b]  (if (< (abs a) (abs b)) a (% (- a b ) b )))

(defn gcd [a b]
  (if (= b 0)
    a
    (gcd b (% a b)
         )
    )
  )

(defn make-rat [n d]
  (let [g (gcd (abs n) (abs d))] 
    (list (if 
            (> (* n d) 0) 
            (abs (/ n g)) 
            (- 0 (abs (/ n g)))
          ) 
          (abs (/ d g) )  
          )
    )
  )

对以上代

http://www.dtcms.com/a/101196.html

相关文章:

  • 【免费】2007-2019年各省地方财政医疗卫生支出数据
  • J2EE框架技术 第三章 SSM项目的CURD
  • Netty源码—10.Netty工具之时间轮一
  • BAR帧处理
  • 怎样提升大语言模型(LLM)回答准确率
  • MySQL内存使用率高问题排查与解决方案:
  • Windows10上部署DeepSeek+RAG知识库操作详解(Dify方式)之1
  • GAMES101-现代计算机图形学入门(Assignment7)
  • sql优化子查询展开执行计划测试
  • 【Deepseek】企业AI DeepSeek战略课
  • 生产者消费者模型
  • 金融级密码管理器——密码泄露监控与自动熔断
  • leetcode -编辑距离
  • opencv图像处理之指纹验证
  • Python助力无人机智能路径规划:从理论到实践
  • uniapp选择文件使用formData格式提交数据
  • Vue3 表单
  • STM32 CAN控制器硬件资源与用法
  • 网络编程和Socket套接字(UDP+TCP)(如果想知道Java中有关网络编程和Socket套接字的知识,那么只看这一篇就足够了!)
  • 51单片机的五类指令(二)——算术运算类指令
  • Python库与Excel
  • BUUCTF-web刷题篇(5)
  • Sentinel实战(一)、1、sentinel介绍、安装及初始化服务监控
  • 微信小程序:数据拼接方法
  • MP3、WAV、RM、PNG格式
  • deepseek ai 输入法
  • OLLAMA 未授权访问-漏洞挖掘
  • 12. STL的原理
  • Spring Cloud Gateway中GatewayFilter Factories(网关过滤工厂)的详细介绍
  • 【Es】Elasticsearch 在日志管理与数据分析中的应用实践