Skip to main content
shorter compare
Source Link
Eelvex
  • 5.5k
  • 1
  • 28
  • 43

J - 3434 27

f=:({~ ?~@#)^:(1-+/@:(=-:/:~)=#)^:_

eg:

f 5 4 1 3 2
1 2 3 4 5

f 'hello'
ehllo

The {~ ?~@# part shuffles the input:

({~ ?~@#) 1 9 8 4
4 8 9 1
({~ ?~@#) 'abcd'
bdca

J - 34

f=:({~ ?~@#)^:(1-+/@:(=/:~)=#)^:_

eg:

f 5 4 1 3 2
1 2 3 4 5

f 'hello'
ehllo

The {~ ?~@# part shuffles the input:

({~ ?~@#) 1 9 8 4
4 8 9 1
({~ ?~@#) 'abcd'
bdca

J - 34 27

f=:({~?~@#)^:(1-(-:/:~))^:_

eg:

f 5 4 1 3 2
1 2 3 4 5

f 'hello'
ehllo

The {~ ?~@# part shuffles the input:

({~ ?~@#) 1 9 8 4
4 8 9 1
({~ ?~@#) 'abcd'
bdca
added 150 characters in body
Source Link
Eelvex
  • 5.5k
  • 1
  • 28
  • 43

J - 34

f=:({~ ?~@#)^:(1-+/@:(=/:~)=#)^:_

eg:

f 5 4 1 3 2
1 2 3 4 5 

f 'hello'
ehllo

The {~ ?~@# part shuffles the input:

({~ ?~@#) 1 9 8 4
4 8 9 1
({~ ?~@#) 'abcd'
bdca

J - 34

f=:({~ ?~@#)^:(1-+/@:(=/:~)=#)^:_

eg:

f 5 4 1 3 2
1 2 3 4 5

J - 34

f=:({~ ?~@#)^:(1-+/@:(=/:~)=#)^:_

eg:

f 5 4 1 3 2
1 2 3 4 5 

f 'hello'
ehllo

The {~ ?~@# part shuffles the input:

({~ ?~@#) 1 9 8 4
4 8 9 1
({~ ?~@#) 'abcd'
bdca
Source Link
Eelvex
  • 5.5k
  • 1
  • 28
  • 43

J - 34

f=:({~ ?~@#)^:(1-+/@:(=/:~)=#)^:_

eg:

f 5 4 1 3 2
1 2 3 4 5