From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!.POSTED!not-for-mail
From: Emanuel Berg <moasen@zoho.com>
Newsgroups: gmane.emacs.help
Subject: 1.75 -> 1-3/4
Date: Tue, 05 Jun 2018 15:01:33 +0200
Organization: Aioe.org NNTP Server
Message-ID: <86lgbt4cb6.fsf@zoho.com>
NNTP-Posting-Host: blaine.gmane.org
Mime-Version: 1.0
Content-Type: text/plain
X-Trace: blaine.gmane.org 1528203804 9208 195.159.176.226 (5 Jun 2018 13:03:24 GMT)
X-Complaints-To: usenet@blaine.gmane.org
NNTP-Posting-Date: Tue, 5 Jun 2018 13:03:24 +0000 (UTC)
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Jun 05 15:03:20 2018
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([208.118.235.17])
	by blaine.gmane.org with esmtp (Exim 4.84_2)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1fQBcO-0002KI-74
	for geh-help-gnu-emacs@m.gmane.org; Tue, 05 Jun 2018 15:03:20 +0200
Original-Received: from localhost ([::1]:46512 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1fQBeV-0005vD-D9
	for geh-help-gnu-emacs@m.gmane.org; Tue, 05 Jun 2018 09:05:31 -0400
Original-Path: usenet.stanford.edu!goblin3!goblin1!goblin2!goblin.stu.neva.ru!aioe.org!.POSTED!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 37
Original-NNTP-Posting-Host: 6eD9/dIjTXG7gTjPBB9cGQ.user.gioia.aioe.org
Original-X-Complaints-To: abuse@aioe.org
Cancel-Lock: sha1:n+4KnyHw7/3P/H80VLTCSMclQzI=
Mail-Copies-To: never
X-Notice: Filtered by postfilter v. 0.8.3
Original-Xref: usenet.stanford.edu gnu.emacs.help:222842
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.21
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-gnu-emacs/>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: "help-gnu-emacs"
	<help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Xref: news.gmane.org gmane.emacs.help:116963
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/116963>

Did anyone do the equivalent of this ("ths" zsh
below) in Elisp or any other Lisp? Just asking
before I do it myself. The algorithm should be
straightforward, but it uses recursion which
I plan to replace by a loop in the Elisp
version. But it looks good otherwise, right?

Before anyone tries to use it on a bicycle
tire, note that "[a] 26x1.5 tire and a 26x1-1/2
tire are different tire sizing systems" (JL on
rec.bicycles.tech). Read more here [1]

ths () {
    local value=$1
    local denom=${2:-16}
    local whole=$(( int(floor($value)) ))
    local rest=$(( $value - $whole ))
    local frac=$(( int(rint($rest * $denom)) ))
    if (( $frac > 0 && $(( $frac % 2 )) == 0 )); then
        local new_denom=$(( denom / 2 ))
        ths $value $new_denom
    else
        local frace
        (( $frac > 0 )) && frace=-${frac}/${denom}
        echo ${whole}${frace}
    fi
}
# $ ths 2.0
# 2
# $ ths 1.75
# 1-3/4

[1] http://www.sheldonbrown.com/tire-sizing.html

-- 
underground experts united
http://user.it.uu.se/~embe8573