k https://alligatr.co.uk/blog/k-z-but-smaller/

k.bat

@echo off

IF "%1" == "" (
  echo %cd% >> %userprofile%\_k
) ELSE (
  IF "%1" == "ls"  (
    type %userprofile%\_k
    exit /B
  )

  FOR /F "tokens=* USEBACKQ" %%F IN (`findstr "%1" "%userprofile%\_k"`) DO (
    cd %%F
    exit /B
  )
)

k.fish

function k -a "path"
  set k_file ~/.k

  if test -z "$path"
    echo (pwd) >> "$k_file"
  else
    switch "$path"
      case "clean"
        sort "$k_file" | uniq > "$k_file.tmp" && mv "$k_file.tmp" "$k_file"
      case "rm"
        sed -i -E "\#^"(pwd)"\$#d" "$k_file"
      case "ls"
        cat "$k_file"
      case "*"
        cd (grep -e "$path" "$k_file" | head -n 1)
    end
  end
end

k.sh

k() {
    if [ -z $1 ]; then
        echo $PWD >> ~/.k
    else
        K=~/.k
        case $1 in
        clean)  sort $K | uniq > ${K}.tmp && mv ${K}.tmp ${K};;
        rm) sed -i -E "\#^${PWD}\$#d" ${K};;
        ls) cat ${K};;
        *)  cd "$(grep -e "$1" ${K} | head -n 1)";;
        esac
    fi
}