一、环境的配置
1.java环境配置
clojureScript 需要java环境的配置需要下载jdk进行java环境变量配置
下载官网
java环境变量的配置教程
2.Leningen环境配置
1.下载.bat文件内容
2.配置环境变量
2.8.3及以上内容进行配置
lein教程
2.使用vscode
vscode官网
下载插件 Calva:Clojure & ClojureSC
二、数据类型
1. hello world
扩展名.clj
如此便可以在helloWorld.clj中编写第一个clojure程序了！
(ns helloworld) //ns的命令是指命名空间，下载完lein之后创建clj项目便会自带该句（ps）
(+ 1 1) //1+1=,按住ctrl+shift，该句会出现=>2
2.clojure中的数据结构
;; 一、基本数据类型
(type 1.1) ;; clojure.lang.Double
(type 1/3) ;; clojure.lang.Ratio
(type 20) ;;clojure.lang.Long
(type true) ;;clojure.lang.Boolean
(type \c) ;;clojure.lang.Character
(type "hello") ;;clojure.lang.String
(type 'a) ;;clojure.lang.Symbol
(def a 1)
(type #'a)
(type (keyword '0')) ;;clojure.lang.Keyword
;; 二、集合数据类型
2.1 list
(type '(a b c))
(typ (list a b c))
2.2 Vector
(type [1 2 3])
(type (vector 1 2 3))
2.3 Queue
2.4 ArrayMap
(type {:a 1 :b2})
2.5 HashMap
(type (hash-map :a 1 :b 2))
2.6 Set
(type #{:a :b})
三、Clojure中的语句
1.定义一个变量
;; 定义一个symbol的a设置的值为hello，a值不可变
(def a "hello")
;; 定义局部的,直接返回了a
(let [a "hello"]
a)
2.条件语句
if
;; 判断条件
(if (empty? a)
:empty
(do
(prn "not empty ...")
:not-empty))
;;do 某一个距离或者某一个分支有一个副作用返回的是最后一个值，其他的都downlock
单分支
(when-not (empty? a)
(prn "not-empty")
:hahahaha)
case
(case a
"hello" :hi
"good" :nihao
:not-match)
;;与a相等输出后面的值,都不匹配输出not-match
cond
(cond
(= a "hello") :hello
(= (apply str (reverse a) )) "olleh" :resversed-hello)
;;是否等于a，等于hello，都不相等输出else中的值
;;reverse 输出内容有\n需要进行拼接
clojure中，除了nil、false所有都是true
四、定义一个函数
ps:定义之后若要使用该函数名称，需要先执行一遍该定义的内容
;; 3.定义一个函数
;; 函数、后面跟的是一个参数列表，
;;一个函数出现在列表的第一个元素位置的时候会被求值，这样就执行了这个元素
(fn [] "hello world")
;;给函数起一个名字
(def hello (fn [] "hello world"))
;;通常使用 defn 函数名 参数列表 函数体
(defn hello [] "hello world")
1.匿名函数
;; 有一种函数定义了之后只在本地用别处不用
;; #(函数名 函数体 参数(第一个参数就是%1))
#(str "hello" %1)
;; 进行使用,将Kevin作为参数传入
(#(str "hello" %1) "Kevin")
接受三种不同类型的参数，第一个为空，第二个是一个参数、第三个是多个参数（相当于java中的函数重载）
2.函数的解构
;;定义一个函数，接收一个map
;;对此人说hi,name为keyword，keyword可以当函数用
(defn hi [person]
(str "Hi" [:name person]))
(hi {:name "kevin" :title "Major"}) =>"Hi Kevin"
;;解构
(defn hi [{name :name}]
(str "Hi" name))
(hi {:name "kevin" :title "Major"}) =>"Hi Kevin"
3.多参数函数
;; 第一个未带参数，直接返回hello world
;; 第二个 ([name] "hello" name)普通函数中需要return出去变量的内容，此句并没有return，所以要str拼接一下，且换行写
(defn yoho
([] "hello world")
([name]
(str "hello" name)))
(yoho) =>"hello world"
(yoho "Kevin") =>"hello Kevin"
五、clojure中的数据结构
1.list
;;clojure中的数据结构是不可变的，一旦定义之后不可以改变
(def x (list 1 2 3))
;;向里面增加一个新元素
(cons 0 x) =>(0 1 2 3)
;;原始x中的内容
x => (1 2 3)
;;有顺序的取值
(first x) =>1
(last x) =>3
;;nth取任意元素
(nth x 0)=>1
;;最高效的把一个元素加入到数据结构,在list链表中插入头部的效率最高
(conj x 0) =>(0 1 2 3)
2.Vector
;;clojure中的数据结构是不可变的，一旦定义之后不可以改变
(def x [1 2 3])
;;向里面增加一个新元素
(cons 0 x) =>(0 1 2 3)
;;原始x中的内容
x => (1 2 3)
;;有顺序的取值
(first x) =>1
(last x) =>3
;;nth取任意元素
(nth x 0)=>1
;;注意conj在该数据结构中与在list中不同
(conj x 0)=>[1 2 3 0]
3.map
;;定义一个map
(def m ({:a 1 :b 2}))
;;建立连写
(assoc m :c 3)=>{:a 1 :b 2 :c 3}
;;对于 m来说它的值仍然是{:a 1 :b 2}
;;assoc-in a的结构是一个嵌套结构，要修改a中b的值为10
(assoc-in {:a {:b 1}} [:a :b] 10)
;; 在a中新增一个元素c
(assoc-in {:a {:b 1}} [:a :c] 10) =>{:a {:b 1 :c 10}}
;;update-in 也是用来更新map中的数据
;; inc函数，b原来指向的函数+1，得到b = 2
(update-in {:a {:b 1}} [:a :b] inc) =>{:a {:b 2}}
;;要获得map中的值，可以用keyword直接获得,m中的a值=1
(:a m)
;;等价于使用get中map的值
(get m :a)
对于map常见的几种类型
;; hash
(hash-map :a 1)
;;array
(array-map :b 2)
;;map本身的key-value是没有顺序的，如果非要有顺序可以使用sorted-map
(sorted-map :a 1 :b 2)
4.Set
;;定义一个set的数据结构
(def s #{1 2 3})
;;使用conj为set添加一个新值
;;注意set是无序的不一定会添加到哪里
(conj s 4)
;;使用contains判断set中是否含有某个值
(contains? s 9)
六、递归和高阶函数
1.递归函数
;; 定义一个sum'函数，接收一个total作为临时变量，接收一个数组vals
;;递归实际上就是数组为空，数组为空了就返回一个值total
;;当前数组不为空的时候就继续调用自己,sum'的值就是加上数组中的第一个值，拿掉加过的值
(defn sum' [total vals]
(if (empty? vals)
total
(sum' (+ first vals)
(rest vals))))
(sum' 0 [1 2 3 4])=>10
;;上述方法有一个total临时变量不太好
;;改为多参数的，第一个vals，希望调用有两个参数的sum'
;;定义两个参数的函数
(defn sum'
([vals] (sum' 0 vals))
([total vals]
(if (empty? vals)
total
(sum' (+ first vals)
(rest vals)))))
(sum' [1 2 3 4])
递归优化
;;jvm限制，本地优化，必须给编译器或者显示器一些提示，不能使用函数名直接调用，使用recur
(defn sum'
([vals] (sum' 0 vals))
([total vals]
(if (empty? vals)
total
(recur (+ first vals)
(rest vals)))))
(sum' [1 2 3 4])
定义sum函数，单参是需要的，多参是不需要的，递归点不一定是函数名，可以loop，只要loop开始就绑定做一个递归点
(defn sum'
[vals]
(loop [total 0
vals vals]
if (empty? vals)
total
(recur (+ total (first vals))
(rest vals))))
(sum' (range 1000))
reduce
;; reduce接受三个参数，第一个接受一个函数，第二个接收一个初始值，第三个接收要处理的参数
(reduce (fn my-add [total val]
(+ total val)) 0 [1 2 3 4])
;;将my-add函数拿出来
(defn my-add [total val]
(+ total val))
(reduce my-add 0 [1 2 3 4])
;;可以将初始值省略
(reduce my-add [1 2 3 4])
;;等价于reduce中的加法
(reduce + [1 2 3 4])
2.高阶函数
reduce 是高阶函数中最普适的一个
;;过滤 是否是偶数
;;传递的是两个值，一直累计的结果，中间传入的value
;;先判断传入的值是否是偶数，如果是偶数acc就添加,如果不是就把acc返回
(defn filter-even [acc,val]
if(even? val) (conj acc val) acc)
(reduce filter-even [] [1 2 3 4]) =>[2 4]
;;或者直接使用clojure函数
(filter even? [1 2 3 4])=>[2 4]
;;数组中的每个值加1
(defn map-inc [acc val]
(conj acc (inc val)))
;; 返回数组的需要指定初始值
(reduce map-inc [] [1 2 3 4])
;;等价于
(map inc [1 2 3 4])
;;偶数和奇数分为两组
(defn group' [acc val]
(if (even? val)
(update-in acc [:even] #(conj % val))
(update-in acc [:odd] #(conj % val))))
(reduce group' {} [1 2 3 4])=>{:odd (3 1), :even (4 2)}
;;相当于
(group-by (fn [val] (if (even? val) :even :odd))
[1 2 3 4])
七、使用lein创建项目
在命令行中创建项目，注意项目名称大小写的问题
lein new learnclj
目录：
| 目录 | 内容 |
|---|---|
| product.clj | 配置文件 dependencies：依赖 |
| src/learnclj/core.clj | 文件主要内容 |
使用lein进行启动
启动之后，直接进行调用
添加main函数，执行lein run
main函数前面加-，指的是静态函数
lein run -m learnclj.core
可以在配置函数中添加
直接使用命令
lein run
产生同样效果
也可以编译成jar包，
在core.clj页面添加
使用命令
lein uberjar
target目录下有两个jar包
再执行
java -jar target/learnclj-0.1.0-SNAPSHOT-standalone.jar
同样可以出现如下效果文章来源：https://www.toymoban.com/news/detail-675432.html
八、如何在clojure中引入一个库
文章来源地址https://www.toymoban.com/news/detail-675432.html
到了这里，关于【clojure】入门篇-01的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！
![很合适新手入门使用的Python游戏开发包pygame实例教程-01[开发环境配置与第一个界面]](https://imgs.yssmx.com/Uploads/2024/01/823365-1.gif)
