# Swaping position in same lists! [duplicate]

I use mathematica 9.0

I tried it often and researched here but i wasnt foundable I have a question about swaping the position of 4 lists in 1 one whole list

a={{{1,2,3,4},{1,2,4,2}},{{1,4,8,1},{1,9,8,2}}}


Now i want to change the second and third position! So i need something like

ares={{{1,3,2,4},{1,4,2,2}},{{1,8,4,1},{1,8,9,2}}}


Thank you very much for your support

## marked as duplicate by Mr.Wizard♦ list-manipulation StackExchange.ready(function() { if (StackExchange.options.isMobile) return; $('.dupe-hammer-message-hover:not(.hover-bound)').each(function() { var$hover = $(this).addClass('hover-bound'),$msg = $hover.siblings('.dupe-hammer-message');$hover.hover( function() { $hover.showInfoMessage('', { messageElement:$msg.clone().show(), transient: false, position: { my: 'bottom left', at: 'top center', offsetTop: -7 }, dismissable: false, relativeToBody: true }); }, function() { StackExchange.helpers.removeMessages(); } ); }); }); Aug 24 '17 at 19:31

list = {{{1, 2, 3, 4}, {1, 2, 4, 2}}, {{1, 4, 8, 1}, {1, 9, 8, 2}}}

ares = list /. {a_, b_, c_, d_} :> {a, c, b, d}


{{{1, 3, 2, 4}, {1, 4, 2, 2}}, {{1, 8, 4, 1}, {1, 8, 9, 2}}}

Or

ares = Apply[{#1, #3, #2, #4}&, list, {2}];

a = {{{1, 2, 3, 4}, {1, 2, 4, 2}}, {{1, 4, 8, 1}, {1, 9, 8, 2}}};
ares = a[[All, All, {1, 3, 2, 4}]]


{{{1, 3, 2, 4}, {1, 4, 2, 2}}, {{1, 8, 4, 1}, {1, 8, 9, 2}}}