fork download
copy 
  1. (print (map
  2. 	(fn[t](filter(fn[x](let[a(reduce +(*(count(str x))-48)(map int(str x)))](some #(=(* % %)a)(range(inc a)))))t))
  3. [[1431,2,0,22,999999999]
  4.   [1,4,9,16,25,1111]
  5.     [22228,4,113125,22345]
  6.       [421337,99,123456789,1133557799] []]))
Success #stdin #stdout 1.69s 335552KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
((1431 0 22 999999999) (1 4 9 1111) (22228 4 22345) () ())
https://ideone.com/ciKOje
language:
Clojure (clojure 1.10.0)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!