>>812
% Prolog

符号無し整数を右にnビット回転(_整数,N,X) :-
　　i2b(32,_整数,L1),
　　ならびの回転(右方向,N,L1,L2),
　　i2b(32,X,L2).

% i2b/3,ならびの回転/4 は http://nojiriko.asia/prolog/t812.html 参照