摘要：
close all;clear all;clc;img=imread('pic.bmp');imshow(img);[m n]=size(img);re=zeros(m,n);tmp=zeros(m+2,n+2);tmp(2:m+1,2:n+1)=img;for i=2:m+1 for j=2:n+ 阅读全文
摘要：
(defun re(n) (setf len (length n)) (if (oddp len) (setf mid (/ (1+ len) 2)) (setf mid (/ len 2))) (or (and (oddp len) (equal (subseq n 0 (1- mid)) (reverse (subseq n mid)))) (and (evenp len) (equal (subseq n 0 mid) (reverse (subseq n mid)))))) 阅读全文