blocks|key|5010361|text|List(1,2,3,4,5,6,7,8,9,10,11)+grouped+3+toList

res0:+List[List[Int]]+=+List(List(1,+2,+3),+List(4,+5,+6),+
List(7,+8,+9),+List(10,+11))|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|5010362|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>List(1,2,3,4,5,6,7,8,9,10,11) grouped 3 toList

res0: List[List[Int]] = List(List(1, 2, 3), List(4, 5, 6), 
List(7, 8, 9), List(10, 11))
</code></pre>

blocks|key|1225449|text|由于您也使用了Clojure标记...|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1225450|在Clojure+1.2中有一个内置的函数可以做到这一点，在clojure.contri.seq-utils的1.1中也提供了该函数。|1225451|(partition-all+3+[1+2+3+4+5+6+7+8+9+10+11])
;+=>+((1+2+3)+(4+5+6)+(7+8+9)+(10+11))|code-block|syntax|javascript|1225452|另请参见partition和partition-by。还要注意的是，如果你需要一些稍微不同的东西，partition和partition-all会接受一些可选的参数，例如(doc+partition)。|offset|length|style|CODE|1225453|entityMap^0|0|0|0|4|9|E|C|1D|9|1N|D|2D|F|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|S|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|T|8|@$K|U|L|V|M|N]|$K|W|L|X|M|N]|$K|Y|L|Z|M|N]|$K|10|L|11|M|N]|$K|12|L|13|M|N]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$]]

Since you use the Clojure tag too...

There's a built-in function to do that in Clojure 1.2, also available in 1.1 in clojure.contrib.seq-utils.

<pre><code>(partition-all 3 [1 2 3 4 5 6 7 8 9 10 11])
; =&gt; ((1 2 3) (4 5 6) (7 8 9) (10 11))
</code></pre>

See also <code>partition</code> and <code>partition-by</code>. Also note that <code>partition</code> and <code>partition-all</code> accept some optional arguments if you need something slightly different, see e.g. <code>(doc partition)</code> at the REPL.

blocks|key|5010375|text|在Scala2.8中，List混合了IterableLike，它有一个分组的方法，它返回一个Iterator[ListT]，然后它可以被转换为List[ListT]。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|5010376|List(1,+2,+3,+4,+5,+6,+7,+8,+9,+10,+11).grouped(3).toList

res3:+List[List[Int]]+=+List(List(1,+2,+3),+List(4,+5,+6),+List(7,+8,+9),+List(10,+11))|code-block|syntax|javascript|5010377|如果你想在列表中使用一个粗略的方法，你可以使用隐式转换，类似于：|5010378|scala>+class+RList[T](val+l:+List[T])+{def+roughen(n:+Int)+=+l.grouped(n).toList}
defined+class+RList

scala>+implicit+def+list2rlist[T](l:+List[T])+=+new+RList(l)
list2rlist:+[T](l:+List[T])RList[T]++++

scala>+List(1,+2,+3,+4,+5,+6,+7,+8,+9,+10,+11)+roughen+3
res5:+List[List[Int]]+=+List(List(1,+2,+3),+List(4,+5,+6),+List(7,+8,+9),+List(10,+11))|5010379|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

In Scala 2.8, List mixes in IterableLike which has the grouped method which returns an Iterator[List[T]], which in turn can be converted to List[List[T]].

<pre><code>List(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11).grouped(3).toList

res3: List[List[Int]] = List(List(1, 2, 3), List(4, 5, 6), List(7, 8, 9), List(10, 11))
</code></pre>

If you want a roughen method on List you can use an implicit conversion, something like:

<pre><code>scala&gt; class RList[T](val l: List[T]) {def roughen(n: Int) = l.grouped(n).toList}
defined class RList

scala&gt; implicit def list2rlist[T](l: List[T]) = new RList(l)
list2rlist: [T](l: List[T])RList[T] 

scala&gt; List(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11) roughen 3
res5: List[List[Int]] = List(List(1, 2, 3), List(4, 5, 6), List(7, 8, 9), List(10, 11))
</code></pre>

blocks|key|1225392|text|def+split[A](list+:+List[A],+n+:+Int)+:+List[List[A]]+=+list+match+{
++++case+List()+=>+List()
++++case+++++_++=>+(list+take+n)+::+split(list+drop+n,+n)
}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1225393|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>def split[A](list : List[A], n : Int) : List[List[A]] = list match {
 case List() =&gt; List()
 case _ =&gt; (list take n) :: split(list drop n, n)
}
</code></pre>

blocks|key|5010443|text|还有另一个clojure版本，用更常用的clojure编写。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|5010444|(defn+roughen
++[n+coll]
++(lazy-seq
++++(when-let+[s+(seq+coll)]
++++++(let+[[l+r]+(split-at+n+s)]
++++++++(cons+l+(roughen+n+r))))))|code-block|syntax|javascript|5010445|注意，split-at遍历输入序列两次。因此，您可以将标准版本替换为以下内容：|offset|length|style|CODE|5010446|(defn+split-at
++[n+coll]
++(loop+[n+n,+s+coll,+l+[]]
++++(if-not+(zero?+n)
++++++(if-let+[s+(seq+s)]
++++++++(recur+(dec+n)+(rest+s)+(conj+l+(first+s)))
++++++++[l+nil])
++++++[l+s])))|5010447|(当然，人们会使用上面已经提到的partition和朋友。)|5010448|entityMap^0|0|0|3|8|0|0|G|9|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@$I|V|J|W|K|L]]|9|@]|A|$]]|$1|M|3|N|5|D|7|X|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|Y|8|@$I|Z|J|10|K|L]]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|R|$]]

And another clojure version, written in more idiomatic clojure.

<pre><code>(defn roughen
 [n coll]
 (lazy-seq
 (when-let [s (seq coll)]
 (let [[l r] (split-at n s)]
 (cons l (roughen n r))))))
</code></pre>

Note, that <code>split-at</code> traverses the input sequence twice. So you can replace the standard version with the following:

<pre><code>(defn split-at
 [n coll]
 (loop [n n, s coll, l []]
 (if-not (zero? n)
 (if-let [s (seq s)]
 (recur (dec n) (rest s) (conj l (first s)))
 [l nil])
 [l s])))
</code></pre>

(Of course one would use <code>partition</code> and friends as already mentioned above.)

blocks|key|1225429|text|这是我能想到的最好的：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1225430|def+roughen(l:List[_],s:Int):List[_]+={

++if+(l.isEmpty)+return+Nil
++val+l2+=+l.splitAt(s)
++l2._1+::+roughen(l2._2,s)

}

val+l+=+List(1,+2,+3,+4,+5,+6,+7,+8,+9,+10)
roughen(l,3)
//returns:+List(List(1,+2,+3),+List(4,+5,+6),+List(7,+8,+9),+List(10))|code-block|syntax|javascript|1225431|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

This is the best I could come up with:

<pre><code>def roughen(l:List[_],s:Int):List[_] ={

 if (l.isEmpty) return Nil
 val l2 = l.splitAt(s)
 l2._1 :: roughen(l2._2,s)

}

val l = List(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
roughen(l,3)
//returns: List(List(1, 2, 3), List(4, 5, 6), List(7, 8, 9), List(10))
</code></pre>

blocks|key|3542215|text|下面是一个与Clojure+1.0兼容的roughen实现：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3542216|(defn+roughen
++"Roughen+sequence+s+by+sub-grouping+every+n+elements.
+++e.gn+(roughen+'(a+b+c+d)+2)+->+((a+b)+(c+d))"
++[s+n]
++(loop+[result+()+s+s]
++++(cond+(empty?+s)
++++++result
++++++(<+(count+s)+n)
++++++(concat+result+(list+s))
++++++:default
++++++(recur+(concat+result+(list+(take+n+s)))+(drop+n+s)))))

user=>+(roughen+'(a+b+c+d+e+f+g)+2)
((a+b)+(c+d)+(e+f)+(g))
user=>+(roughen+'(a+b+c+d+e+f)+2)
((a+b)+(c+d)+(e+f))
user=>+(roughen+'(a+b+c+d+e+f)+4)
((a+b+c+d)+(e+f))
user=>+|code-block|syntax|javascript|3542217|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here's a Clojure 1.0-compatible implementation of roughen:

<pre><code>(defn roughen
 "Roughen sequence s by sub-grouping every n elements.
 e.gn (roughen '(a b c d) 2) -&gt; ((a b) (c d))"
 [s n]
 (loop [result () s s]
 (cond (empty? s)
 result
 (&lt; (count s) n)
 (concat result (list s))
 :default
 (recur (concat result (list (take n s))) (drop n s)))))

user=&gt; (roughen '(a b c d e f g) 2)
((a b) (c d) (e f) (g))
user=&gt; (roughen '(a b c d e f) 2)
((a b) (c d) (e f))
user=&gt; (roughen '(a b c d e f) 4)
((a b c d) (e f))
user=&gt; 
</code></pre>

For instance, I have a list <code>(1 2 3 4 5 6 7 8 9 10 11)</code>, and want to roughen it by 3 elements (or another length) to get <code>((1 2 3) (4 5 6) (7 8 9) (10 11))</code>. What pretty code could I use for this? Thanks.

How roughen (as opposed to flatten) a list in a functional style?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

例如，我有一个列表(1 2 3 4 5 6 7 8 9 10 11)，希望用3个元素(或另一个长度)粗化它以获得((1 2 3) (4 5 6) (7 8 9) (10 11))。我可以使用什么漂亮的代码来做这件事呢？谢谢。

问如何在函数式风格中粗化(而不是扁平化)列表？
EN

回答 7

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在函数式风格中粗化(而不是扁平化)列表？EN

回答 7

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在函数式风格中粗化(而不是扁平化)列表？
EN