Remove unnecessary assertion in #dendrogram

Author: Hernán Morales Durand

src/AI-HierarchicalClustering/AIClusteringData.class.st

@@ -73,7 +73,6 @@ AIClusteringData >> completeLinkage [
 AIClusteringData >> dendrogram [
 	" Answer an <AIDendrogramNode> representing the root node of the receiver's dendrogram "
 
-	self assert: indices size equals: 1.
 	^ clusters at: indices anyOne
 ]
 

src/AI-HierarchicalClustering/Integer.extension.st

@@ -2,31 +2,33 @@ Extension { #name : #Integer }
 
 { #category : #'*AI-HierarchicalClustering' }
 Integer >> findNK [
+
 	" Yields all n and k such that n take: k = self.
 	https://math.stackexchange.com/a/103385/205 "
 
 	| k |
 	[ self > 1 ] assert.
-    k := 0.
-	^ Array streamContents: [ : stream | 
-	    [ true ] whileTrue: [ 
-			| nmin nmax choose |
-			k := k + 1.
-			((2 * k + 1) * self) <= (4 ** k)
-				ifTrue: [ ^ stream contents ].
-			nmin := self firstOver: k with: (k factorial * self).
-			nmax := nmin + k + 1.
-			nmin := nmin max: (2 * k).
-	      choose := nmin asInteger take: k.
-			nmin to: nmax do: [ : n |
-				choose = self
-					ifTrue: [  
-						stream nextPutAll: { n asInteger . k asInteger }.
-						k < (n - k)
-							ifTrue: [ stream nextPutAll: { n asInteger . (n - k) asInteger } ] ].
-	            choose := choose * (n + 1).
-	            choose := (choose / (n + 1 - k)) ceiling ] ] ]
-
+	k := 0.
+	^ Array streamContents: [ :stream | 
+		  [ true ] whileTrue: [ 
+			  | nmin nmax choose |
+			  k := k + 1.
+			  2 * k + 1 * self <= (4 ** k) ifTrue: [ ^ stream contents ].
+			  nmin := self firstOver: k with: k factorial * self.
+			  nmax := nmin + k + 1.
+			  nmin := nmin max: 2 * k.
+			  choose := nmin asInteger numberOfCombinationsTaken: k.
+			  nmin to: nmax do: [ :n | 
+				  choose = self ifTrue: [ 
+					  stream nextPutAll: { 
+							  n asInteger.
+							  k asInteger }.
+					  k < (n - k) ifTrue: [ 
+						  stream nextPutAll: { 
+								  n asInteger.
+								  (n - k) asInteger } ] ].
+				  choose := choose * (n + 1).
+				  choose := (choose / (n + 1 - k)) ceiling ] ] ]
 ]
 
 { #category : #'*AI-HierarchicalClustering' }