最長のコマンド名を探してみる

Scheme 30分プログラム

30分プログラム、その763。最長のコマンド名を探してみます。
やっぱり、素数の計算とかよりかは実践的で楽しいです。

使い方

$ gosh longest-command.scm
scrollkeeper-get-extended-content-list

ソースコード

#! /opt/local/bin/gosh
;; -*- mode:scheme; coding:utf-8 -*-

(use file.util)
(use srfi-1)

(define (find-longest-command path)
  (car (sort (map sys-basename
		  (filter file-is-executable?
			  (sys-glob (map (cut string-append <> "/*")
					 path))))
	     (lambda (x y) (> (string-length x) (string-length y))))))

(print (find-longest-command (string-split (sys-getenv "PATH") ":")))

参考