Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

1

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a|k<-[2..n],a<-[1..n],n`mod`k^a<1]

45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Removed unexpected '*'

edited Oct 26, 2017 at 0:14

17k
3
43
106

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a*|k<n=maximum[a|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a*|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

added 88 characters in body

edited Oct 22, 2017 at 20:47

11.7k
2
23
57

Haskell, 61 60 50 4848 46 bytes

-2 bytes thanks to xnor

f n=maximum[a*0^(n`mod`k^a)|k<n=maximum[a*|k<-[2..n],a<-[1..n]]n],n`mod`k^a<1]

Try it online!Try it online!

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Haskell, 61 60 50 48 bytes

f n=maximum[a*0^(n`mod`k^a)|k<-[2..n],a<-[1..n]]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

Haskell, 61 60 50 48 46 bytes

-2 bytes thanks to xnor

f n=maximum[a*|k<-[2..n],a<-[1..n],n`mod`k^a<1]

###45 bytes with an import:

import NumberTheory maximum.map snd.factorize

deleted 3 characters in body

edited Oct 21, 2017 at 19:04

11.7k
2
23
57

Loading

added 7 characters in body

edited Oct 21, 2017 at 18:41

11.7k
2
23
57

Loading

deleted 14 characters in body

edited Oct 21, 2017 at 18:21

11.7k
2
23
57

Loading

added 8 characters in body

edited Oct 21, 2017 at 17:58

11.7k
2
23
57

Loading

answered Oct 21, 2017 at 17:50

11.7k
2
23
57

Loading