/prog/ - Simple modulus math

Name: Anonymous 2011-01-22 7:16

Solve this prague, I'm having a brain fart.

anus :: Int -> [Int]



0 -> [1,2,3,4]

1 -> [2,3,4,1]

2 -> [3,4,1,2]

3 -> [4,1,2,3]

4 -> [1,2,3,4]

5 -> [2,3,4,1]

e t c...

Name: Anonymous 2011-01-22 7:46

anus = take . repeat

Name: Anonymous 2011-01-22 7:49

anus = take 4 . flip drop (repeat [1..4])

Name: Anonymous 2011-01-22 8:08

Oops.

[code]anus = take 4 . flip drop (cycle [1..4])[\code]

Name: Anonymous 2011-01-22 8:37

You'll get it eventually. I couldn't solve this when I was five years old, either.

Name: Anonymous 2011-01-22 8:58

sub f { (1..4).rotate: $^a % 4 }

Name: Anonymous 2011-01-22 9:17

>>1

(define (rotate x)

  (append (cdr x) (list (car x))))

(let loop ((i 0)

           (x '(1 2 3 4))

           (r '()))

  (if (> i 10) (reverse r)

      (loop (+ i 1) (rotate x) (cons x r))))

Name: Anonymous 2011-01-22 9:20

>>7
Why all you people continue to use Java, isn't the verbosity getting to you?

Name: Anonymous 2011-01-22 9:27

anus dick = take 4 $ drop dick $ cycle [1..4]

Name: Anonymous 2011-01-22 9:28

>>6
.rotate:
I'm surprised that's not an operator.

Name: Anonymous 2011-01-22 9:44

>>8
I already enjoy my Perl, thanks.

(((((((((((λ(f)(λ(c)(λ(!)(λ(m)(λ(@_)(λ(+)(λ(<=>)(λ(i)(λ(x)(λ(r)(if(c i m)(@_ r)((((((((((f f)c)!)m)@_)+)<=>)(+ i))(! x))(<=> x r)))))))))))))(λ(f)(λ(c)(λ(!)(λ(m)(λ(@_)(λ(+)(λ(<=>)(λ(i)(λ(x)(λ(r)(if(c i m)(@_ r)((((((((((f f)c)!)m)@_)+)<=>)(+ i))(! x))(<=> x r))))))))))))))>)(((((λ(a)(λ(d)(λ(l)(λ(c)(λ(x)(a(d x)(l(c x))))))))append)cdr)list)car))10)reverse)(λ(x)(+ x 1)))cons)0)((λ x x)1 2 3 4))'())

Name: Anonymous 2011-01-22 10:02

FIOC my anus



def a(x):

    return [1+(x+y)%4 for y in range(4)]

Name: Anonymous 2011-01-22 10:14

(define (a x)

  (map (λ (y) (modulo (+ 1 x y) 4)) '(1 2 3 4)))

Name: Anonymous 2011-01-22 10:14

>>8
Because the LITHP functions are really short to type.

Name: Anonymous 2011-01-22 10:23

anus x = [1+y`mod`4|y<-[x..x+3]]

Name: Anonymous 2011-01-22 10:33

>>15
What language?

Name: Anonymous 2011-01-22 10:43

>>16
Negro please.

Name: Anonymous 2011-01-22 11:01

>>16
I hate even posting in the same thread as you.

Name: Anonymous 2011-01-22 11:44

>>17-18
I asked a fucking question, what's your God fuqin damned problem?

Name: Anonymous 2011-01-22 11:47

>>19
`mod`
y<-[x..x+3]]
haskal.

Name: Anonymous 2011-02-02 23:26

Name: Anonymous 2011-02-17 20:24

check 'em

Name: Anonymous 2013-09-01 13:44

､___ ノ　､　　　　￣
　　。　　　､　　　　　　　　　　　　　　　　　　　　　　　　､ l il | ll | l| ll i | /
　　　 ◇　　　　　　　　　　　　　　　　　　　　　　　　　ミ
　　　　　　　　　　＼　　　　　　　　　　　　　　　　　　　Ξ　メ　　私　落
　|　　　　|＼　　　＼　　　　　　　　　　　　　　　　　ﾆ　　l　　は　ち
　.!　　　＼|　　　　　　　　　　　　　　　　　　　　　　　.三　ド　瀟　つ
　 :　　　　　　　　　＿　　　　　　　　　　　　　　　　　　ニ.　長.　洒　け
　　　　　　　　　　 |　　＼　　　　　　　　　＿　　　　　 Ξ.　な　　な　：
　　　　　　　　　　　、　　 l 　　　＿ｒ─ｧ'´_,,.. ..,ヽ‐- ､　二　の　　　　　：
　　:　　　　　　　　　＼　　　ｒ「＞-‐''"´　　　　｀"'＜ Ξ　よ
　　　　　　　　　　　　　　_,lア´　　　　　　　　　　　　　／,
　　　　　　　　　　　　　 r' , '　／　　　{　　　　　　　　、　'/ | ll i |l l| l il ||ヽ　
　　　i　　　　　　　　　く7　 /　　; 　 /!　　 .ﾊ　ヽ　　',　　､　 ,
　　　　　　　　　　　　　　| 　;　　 ' 　 '　､　/ _」二ム　 |　､_,.＞.}
　　　､ l il || ll i | /　　＜　{　 /{´_/　　ヽ{ｧ'´ｿてﾐヽ＼{　　＼.　|
　　ミ　　　　　　　彡　 /　　ｲ ,ｨテﾐ　　　　　{ﾉ　ﾘﾉﾊ、　　､＞
　　ﾆ　　う　　　ﾆ　∠､　, ヽl{ {ﾉ }　　　　　ゝ'"´ /i } ＼　 ∨{
　 .三　　ろ　　　.三　　 ∨ ﾊ　ゞ'　 '　　　　　 xx }メ{ r'　ヽﾉ　'､
　　ﾆ.　　た　　ニ　　　}ｲ! {xx　　　　　__　　　 {イ}ヽ　　＼　＼
　 .二　　え　　　 Ξ.　　　　{人　　　　r　　ｿ　 u　;}ド{　　、　　ヽ　ヽ
　　三. 　る　　　ニ　　　 / )X＼　　｀　　　　　,.ｲﾊXヽ、ﾊ　　ﾊ　 }
　　.ﾆ　　な　　　三　　　.ﾚ {メ）　ヽ、　　 ,.　　{　＼r＼ .}　　ﾉ　/
　　Ξ　　咲　　　 .ﾆ　　　r､（Xｿﾊ　犬ｰァ'"　　　ﾄ､　　く,.＞ア─-､
　　彡　　夜　　　.ミ　　　}ンﾑく{＼{　 /ﾊ}　　　 /　＞'´　　{　　　ヽ
　　／,　　　　　　＼　　　　 / }　　_,.＞|__ムrｧ-r' 　.//　　 _,r'　　　　　　'､
　　　/ | ll i | l il ||ヽ　　　　くﾚ' ￣/::::://　ﾊ　＼／::;　　　　{　　　　　　　＼
　　　　　　　　　　　　　／　　 /::::://　/　 }　　|:::::/　　　rイ/ 　　　　　　　':,

Name: Anonymous 2013-09-01 15:15

　　　　　　　　　　　　　　　　ﾄ、　　　　　　　　　　イ　　/
　　　　　ﾄ、,. ‐''"´￣￣｀ﾞ'ｰ-) ＼__. 　　　　　　┼　/
　　　　 ./　´　　　　＿＿　　　　　｀ヽ.＿__　　　 /|ヽ | 、　　┼┐ヾ
　　　　/　　.／,　'"´　　　　￣｀"ヽ（｀ｰｧノ´　　　 / .! 　レﾍ　ﾉ､ﾉ
　　　 ,'　　/／　　　/ 　　,　　　 |　Y´ﾊヽ._＿　　　　　＿＿
　　／　＜´ 　　　 /|‐-／| 　　 /,　 |　　　＼｀ヽ　　　　　/ 　 /　　┼　ヽ.　 /　＿
　 ´)　　　/ 　　ｧﾃ＜、 .|　 .／/_ ./|　　　l⌒　　|　　､＿＿　/┐　 /　 _| 　 !　　 /
　 /　　　八　　 K_,ｒｿ｀　|／ _」_／!/　, 　 ,'　　 /　　　　　 /　し　　 (_ﾉヽ. ﾚ　､＿
　⌒l　／　ヽ､__,ゞｰ　　　　 l ﾘ｀Y|　/|　./　　／　＿＿＿__
　　,イ　/　　./ ⊂⊃　　　　'　｀,,.ｲｿイ　ﾚ'-‐''"　　　┌┐　|　　___,,.. -‐
　/　ソ　　　|　 ,ハ　　` ｰ　　⊂!　ヽ/　　　　　　　└┘　|　　 _ヽ_ソ＿
　!　（r､　　人　　ﾉ、　　　　　人　.ﾊ　　　　　　　　､」　「ﾉ l＿ｿヽ| .l　　ヽ
　'､　　）イ＿＼(ﾄ、.＞-ｒｧ '"´　人ｒ'ノ　　　　　　　　　　　ノーｧ　　 |　　 |
　　＼　 /´　　｀ヽｒ＼__ムl（＼／）､──- 、　　　　　　　　　　 __,メ､,__　 ∨　
　　　｀7　／　　　＼　|＼　// ,ｒ'＜,ﾊ　　　＞─＜￣）
　　／|　/　　　　　、Y　　/　　　ｒ‐ ﾍ._　　/)＼　　Y　　　　原作：古明地さとり
　　/　 .∨　　　　　　＼.「ヽ--､_.ﾉヽ. /´|　l´__ノ　　ﾊ
　　!　　ヽ.　　　　　　　ｒ|　/　　/ .／ヽﾊ　ゝ､_＿__,メｲ
　　'､　　　　＼　　　　 !ヽｰ‐ ｧ'￣/ ヽ/　∨　　　　/
　　　＼.　　　　＼　　　./|　￣　　ﾑ／　　 |　　　／

Simple modulus math

1 Name: Anonymous 2011-01-22 7:16

2 Name: Anonymous 2011-01-22 7:46

3 Name: Anonymous 2011-01-22 7:49

4 Name: Anonymous 2011-01-22 8:08

5 Name: Anonymous 2011-01-22 8:37

6 Name: Anonymous 2011-01-22 8:58

7 Name: Anonymous 2011-01-22 9:17

8 Name: Anonymous 2011-01-22 9:20

9 Name: Anonymous 2011-01-22 9:27

10 Name: Anonymous 2011-01-22 9:28

11 Name: Anonymous 2011-01-22 9:44

12 Name: Anonymous 2011-01-22 10:02

13 Name: Anonymous 2011-01-22 10:14

14 Name: Anonymous 2011-01-22 10:14

15 Name: Anonymous 2011-01-22 10:23

16 Name: Anonymous 2011-01-22 10:33

17 Name: Anonymous 2011-01-22 10:43

18 Name: Anonymous 2011-01-22 11:01

19 Name: Anonymous 2011-01-22 11:44

20 Name: Anonymous 2011-01-22 11:47

21 Name: Anonymous 2011-02-02 23:26

22 Name: Anonymous 2011-02-17 20:24

23 Name: Anonymous 2013-09-01 13:44

24 Name: Anonymous 2013-09-01 15:15

Name: Anonymous 2011-01-22 7:16

Name: Anonymous 2011-01-22 7:46

Name: Anonymous 2011-01-22 7:49

Name: Anonymous 2011-01-22 8:08

Name: Anonymous 2011-01-22 8:37

Name: Anonymous 2011-01-22 8:58

Name: Anonymous 2011-01-22 9:17

Name: Anonymous 2011-01-22 9:20

Name: Anonymous 2011-01-22 9:27

Name: Anonymous 2011-01-22 9:28

Name: Anonymous 2011-01-22 9:44

Name: Anonymous 2011-01-22 10:02

Name: Anonymous 2011-01-22 10:14

Name: Anonymous 2011-01-22 10:14

Name: Anonymous 2011-01-22 10:23

Name: Anonymous 2011-01-22 10:33

Name: Anonymous 2011-01-22 10:43

Name: Anonymous 2011-01-22 11:01

Name: Anonymous 2011-01-22 11:44

Name: Anonymous 2011-01-22 11:47

Name: Anonymous 2011-02-02 23:26

Name: Anonymous 2011-02-17 20:24

Name: Anonymous 2013-09-01 13:44

Name: Anonymous 2013-09-01 15:15