Re: [OT] Re: the 'original' string function?

[Emanuel Berg <incal@dataswamp.org>]

Here is a piece of code after all wild ideas, but uncoded.

I think I can come up with a lot of those!

They should compare the data but as close to the way a human
thinks as possible.

So, the size of something was my initial idea as that is
a very human first thing to note. Who has the biggest house,
car or army, that's a big player and I want a Big Mac.

Okay, I felt the need to post some code and not be all talk
but anyway I'll now work on with this and not bother you with
this idea anymore, aight? :)

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/b-a-original.el

(require 'pcase)

(defun length-test (s1 s2)
  (pcase-let*((l1 (length s1))
              (l2 (length s2))
              (`(,n ,d) (if (< l1 l2) `(,l1 ,l2) `(,l2 ,l1))) )
    (round (* 100 (/ n d 1.0))) ))

;; (length-test "b" "a")        ; 100
;; (length-test "a" "original") ;  12
;; (length-test "original" "b") ;  12

(provide 'b-a-original)

-- 
underground experts united
https://dataswamp.org/~incal