J challenge!

Convert this to J:

f t s = zipWith (\t' x -> concatMap (map (x+)) t') (tails t) s

You might want to use code tags.

J

(<@(+ >)"0 0) (<@;\.)

Amicoolyet?

WriteFileEx((HFILE)NULL, "J", NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);

s/f t s = zipWith \(\\t' x -> concatMap \(map \(x\+\)\) t'\) \(tails t\) s/J/

All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy

bampu pantsu

鉁ㅶ镡錓㡅䘧愙ͥ敁ܤ蜤卨祩砒ऒሴ蒗Ħ栠阖芘䤶攃֙咆䝡፵⅒膕ឃ托ㄠ〇㔀㡥↔妔搷傀璑剣猘ƒᙱᅥᕧ䂒爳ᜃȹ虅ጐ䌨䔆㝔牡舕䙷㥁ᒉ⡢㥕桧悉膈螙薑ই遀校挱በ㥉根㔄ᑤខ鄷٩厁嘘瀢怈啕遰鄷慁ᡲ遅ᦑ䢄聧楉ᅑ⥗ᦐ耱㉩⊗∦昵⥢؁䅣᜷䈐䄣敘荐朐⤀䁗脤ቨ虄蘳扅ቲ㜴㡆ܤ⑰䁀摓饃顸葲焣舵ጒᖅ砶☉ʓ鄢㑸㘨陣㝂偹䀗搴ٷ朡ㄨᆓሥޅ塅ْ萩蕖ᤒ螘ᆉつ⥨✕㔣嘀ថ㌀ᄢ獓退靶㡸̈楨鉴脀木朦ន᝘ဲ艵〧Ԧᘗᙔ礈券䁁璄褒فᤅ塓ࠃ健妐ᑷх㚂々㑒ↅ䈢杗镧呧ݓ桧᝴獈’❢夸怓蘁偀腳⢒琀㍂㜆礈衂向嘲㑦榖耨⥁ፔ砢䀳靱ՠ阡鍷䑱ܩ耕坕慖␈煒Р$и䆃炔᝱焣薐舢ࡅ怄須瞕眕䤁衖枓攘䈄☴塇牸獥袉隕㠷坆㤙瘓㖀饈蘅ၘ癐䢒猷咕襆ᕓ焉錗处ᖘ┈⤠鉐Ŵ䕢ᅀ挔朱㜇愙㕳⦈搆芙▀刖䑂ॗ憂ޑ焃瑖ࠆ攈㢕兴圓栠怴ㄦ奉肑㑃ň陦逦╒煉椀♐兡癕癔݄✡∡靷焩䀒՗树ፈ們㕦፣ࢃ灲ቁኄ㚅剈蜱⍴桲ᆈ合㍒【甡怅榇牑霆㘩蘨ᤙ阄➅㉱敃䕢ॗဵဤ蚆呉硧䜘蜡㥁扴⠦❱蕧梐ၥ᝹墒熉斉ࠢ䢘ڗ䊆㖂煉镉銈㝆薉餷ᙐ墕栕ᝄ㡤Α鄙荀ͦ銆蠖镈元堙怑䢐爈䑴ㄧ䚖㐠饉憆顷奵用瞄Đ坷爠葂耷ᜡȨ☴ܨ蔁ቲဖ餂␣䔡ᑳ㜉⑄ↅ⍓‡ᜉ怆茱睸㤃蠳蠨吒ጣ䞇u碐ⅉ愐邈ĥ船Ԉ႘愖妁疘鉄ȹ餡℉ᡨ鈨呷脕砖睰錸酷酲㎒脧ᆄ塱阱យ錴঒ᕉᚐ襂䑑⌀㠶р剸ࡐŢ∓ᄤ眔匄䤣餢