From bb22003bc0c577dbaa678607995232ddc9f8406f Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Tue, 1 Sep 2015 17:02:44 +0200 Subject: add strfry MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- src/string/strfry.c | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 src/string/strfry.c (limited to 'src') diff --git a/src/string/strfry.c b/src/string/strfry.c new file mode 100644 index 0000000..f020202 --- /dev/null +++ b/src/string/strfry.c @@ -0,0 +1,46 @@ +/** + * slibc — Yet another C library + * Copyright © 2015 Mattias Andrée (maandree@member.fsf.org) + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ +#include +#include + + +/* Sattolo Cycles. */ + + + +/** + * Shuffles all bytes in a string. + * + * This is a GNU joke extension. + * + * @param anagram An anagram of the output, will be modified. + * @retrun The string, which will `== anagram`. + */ +char* strfry(char* anagram) +{ + size_t i, j; + char t; + if (anagram == NULL) + return NULL; + for (i = strlen(anagram); --i;) + { + j = (int)((double)rand() / (RAND_MAX + 1)); + t = anagram[i], anagram[i] = anagram[j], anagram[j] = t; + } +} + -- cgit v1.2.3-70-g09d2