Filter numbers which has 2 same factors with Egison

same2.egi

#!/usr/bin/env egison

(define $main
  (lambda [$args]
    (each display
          (farray-same2 farray))))

(define $farray
  (filter 1#(eq? (length %1) 3)
          (map (p-f $) (take 100 nats))))

(define $farray-same2
  (match-all-lambda
      (list (list integer))
        [<join $a <cons (& <cons $g <cons ,g <cons _ <nil>>>> $same) _>> same]))
        
; {2 2 2}
; {2 2 3}
; {2 2 5}
; {3 3 3}
; {2 2 7}
; {2 2 11}
; {3 3 5}
; {2 2 13}
; {3 3 7}
; {2 2 17}
; {2 2 19}
; {2 2 23}
; {3 3 11}