Communities

The Great Outdoors

Photography & Video

Scientific Speculation

Electrical Engineering

Languages & Linguistics

Software Development

Community Proposals

tag:snake search within a tag

answers:0 unanswered questions

user:xxxx search by author id

score:0.5 posts with 0.5+ score

"snake oil" exact phrase

votes:4 posts with 4+ votes

created:<1w created < 1 week ago

post_type:xxxx type of post

Notifications

Mark all as read See all your notifications »

Challenges Q&A Sandbox Meta

Challenges

Posts Tags Edits

Post History

50%

+0 −0

Challenges Determine whether an integer is square-free

Factor, 108 bytes USING: assocs kernel math math.primes.factors ; IN: s : ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;

posted 1y ago by gifti‭ · edited 1y ago by gifti‭

Answer

#5: Post edited by

gifti‭ · 2022-08-17T17:13:28Z (over 1 year ago)

Copy Link

Raw

Markdown

# **Factor, 108 bytes**
```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```

# Factor, 108 bytes
```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```

#4: Post edited by

gifti‭ · 2022-08-17T17:12:57Z (over 1 year ago)

Copy Link

Raw

Markdown

~~# Factor, 108 bytes~~
```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```

# **Factor, 108 bytes**
```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```

#3: Post edited by

gifti‭ · 2022-08-17T17:12:04Z (over 1 year ago)

Copy Link

Raw

Markdown

```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```

# Factor, 108 bytes
```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```

#2: Post edited by

gifti‭ · 2022-08-17T17:02:10Z (over 1 year ago)
Factor, 108 bytes

Copy Link

Raw

Markdown

#1: Initial revision by

gifti‭ · 2022-08-17T17:01:15Z (over 1 year ago)

Copy Link

Raw

Markdown

```
USING: assocs kernel math math.primes.factors ;
IN: s
: ? ( n -- ? ) group-factors [ nip 2 < ] assoc-all? ;
```