7 lines
185 B
Factor
7 lines
185 B
Factor
USING: assocs formatting kernel math namespaces ;
|
|
|
|
0 0
|
|
global [
|
|
nip dup integer? [ + [ 1 + ] dip ] [ drop ] if
|
|
] assoc-each
|
|
"There are %d integer variables, the sum is %d\n" printf
|