Trong thời gian chạy, tiếp tục nhắc một dòng đầu vào cho đến khi đầu vào của người dùng không phải là tên của một tệp hoặc thư mục hiện có hoặc mục hệ thống tệp khác, liên quan đến thư mục làm việc hiện tại. Sau đó trả về / in tên tệp đã nhập cuối cùng. Bạn có thể cho rằng tất cả các đầu vào của người dùng sẽ là tên tệp hợp lệ.

Mã giả 1

myform = new form("GUI")
myform.mytxt = new editfield("")
myform.ok = new button("OK")
repeat
  waitfor(myform.ok,"click")
until not filesystem.exists(myform.mytxt.content)
return(myform.mytxt.content)

Mã giả 2

LET TEXT = "."
WHILE HASFILE(TEXT) DO
  TEXT = PROMPT("")
ENDWHILE
RETURN TEXT

Ví dụ về đầu vào của người dùng sẽ gây ra nhắc nhở lại khi trên TIO:

.
..
.env.tio
/
/bin/[
/lost+found

Ví dụ về đầu vào của người dùng sẽ trở lại khi trên TIO:

...
env.tio
../../bin/]
/lost/found

Mẻ, 37 byte

@set/ps=
@if exist %s% %0
@echo %s%

(Vì một số lý do, Windows 10 hiện tại CMD.EXElàm hỏng tiêu đề khi thực thi %0.)

Toán học, 33 28 byte

f:=Input[]/._?FileExistsQ:>f

Điều này giả định môi trường máy tính xách tay của Mathicala nơi chúng ta có thể truy vấn đầu vào từ người dùng Input[]. Đầu vào của người dùng phải là một chuỗi ký tự thực sự , vì vậy, "ab/cd.ef"thay vì chỉ ab/cd.ef. Ưu điểm là đầu vào có thể là một biểu thức Mathicala tùy ý tính toán chuỗi đầu vào.

Điều này xác định một biểu tượng f, khi được đánh giá thực hiện tính toán cần thiết và cuối cùng là đánh giá đầu vào người dùng không tồn tại đầu tiên. Về cơ bản, đây là một hàm rỗng, trong đó chúng ta không cần ...[]phải gọi nó.

Chúng ta cũng có thể lưu một loạt byte trên một Ifbiểu thức truyền thống bằng cách sử dụng toán tử thay thế mẫu /..

Perl 5 -ln , 12 10 byte

-2 byte nhờ @DomHastings

#!/usr/bin/perl -ln
-e||1/!say

Hãy thử trực tuyến!

Bash, 29

read f
[ -e $f ]&&$0||echo $f

PowerShell 2 (đến 6), 35 byte

while(Test-Path($x=Read-Host)){};$x

Read-Hostchờ đầu vào (nếu được cung cấp một chuỗi làm tham số, sử dụng chuỗi làm dấu nhắc). Nếu đầu vào được cung cấp là tên tệp (hoặc tên thư mục) cho tên tồn tại, Test-Pathtrả về $truevà khối không làm gì {}thực thi và nó sẽ nhắc lại cho đầu vào. Nếu Test-Pathtrả về $falsevì đầu vào không phải là tệp hoặc thư mục còn tồn tại, khối không làm gì sẽ không thực thi và tên đầu vào được in.

C (gcc) , 62 byte

main(){char b[99];while(scanf("%s",b)&&!access(b,0));puts(b);}

Hãy thử trực tuyến!

main(){
    char b[99]; // Declare buffer b
    while (scanf("%s",b)&&!access(b,0));    // Take one line of input, and test if file is accessible (exists)
    puts (b);   // If doesn't exist, loop ends and print file
}

Funky , 40 byte

tryfor)io.open(s=io.read())catchprint(s)

Trong phong cách sôi nổi thực sự, điều này sử dụng các từ khóa bị kẹt với nhau, các dấu ngoặc không khớp và các từ khóa ẩn. Dọn dẹp, nó trông giống như:

try{
    while(true){
        s = io.read()
        io.open(s)
    }
}catch(e){
    print(s)
}

Phá vỡ

try                                     // Try statement, this one is expected to fail.
   for)                                 // for) is a for loop with no arguments, which is functionally equivilent to a while(true) loop, much like for(;;)
       io.open(                         // Try to open a file relative to the CWD. If this fails to find a file, it will throw an error and escape the try/catch
               s=io.read()              // Read a line from STDIN and store it as s, this will still pass it to the arguments of the call.
                          )
                           catch        // When io.open fails
                                print(s)// Print out the last entered line.

Haskell , 76 byte

import System.Directory
f=do x<-getLine;b<-doesPathExist x;last$pure x:[f|b]

Hãy thử trực tuyến!

Trả về IO xnơi xtên nhập vào của tệp không tồn tại.

Bị đánh cắp

import System.Directory

insist = do { file <- getLine;
              exists <- doesPathExist file;
              if exists then insist else pure file }

R , 66 51 byte

while((s=readline())%in%list.files(a=T)){};print(s)

-15 byte nhờ vào plannapus

Chạy một vòng lặp có khả năng vô hạn, trong đó trên mỗi lần lặp

1. Một dòng đầu vào của người dùng được lưu trữ trong biến s
2. Chúng tôi kiểm tra xem đầu vào có nằm trong danh sách tên tệp cho thư mục làm việc không ( a=Ttùy chọn list.files()phải được sử dụng để chọn những thứ như ..)
3. Nếu snằm trong danh sách đó, chúng ta sẽ đi đến lần lặp tiếp theo; nếu không, chúng tôi phá vỡ vòng lặp và in s.

Python 3 , 55 byte

import glob
s="."
while glob.glob(s):s=input()
print(s)

Hãy thử trực tuyến!

-4 byte nhờ ManfP
-6 byte nhờ Rick Rongen

C #, 101 byte

()=>{var s="";try{for(;;System.IO.File.GetAttributes(s=System.Console.ReadLine()));}catch{}return s;}

Đối với mỗi trong số 4 giá trị trả về hợp lệ:

• Hãy thử trực tuyến! (trả về '...')

• Hãy thử trực tuyến! (trả về 'env.tio')

• Hãy thử trực tuyến! (trả về '../..bin/])

• Hãy thử trực tuyến! (trả về '/ mất / tìm thấy)

Bị đánh cắp

() =>
{
    var s = "";
    try
    {
        for(;; System.IO.File.GetAttributes(s = System.Console.ReadLine()));
    }
    catch {}
    return s;
}

Giải trình

dựa vào thực tế là File.GetAttribut () đưa ra một ngoại lệ nếu đối tượng hệ thống tệp được chỉ định trong đối số của nó không tồn tại.

Powershell 3.0, 75 byte

$x=1;while($x){$i=Read-Host;$x=Test-Path("$PSScriptRoot\$i")};Write-Host $i

Nỗ lực đầu tiên; Tôi chắc chắn có một vài tối ưu hóa tôi có thể thực hiện.

Một dạng dễ đọc hơn một chút:

$x=1;                                                                       # Make sure we enter our while loop.
     while($x){                                                             # While we keep getting file names,                   
               $i=Read-Host;                                                # Get input from the user
                            $x=Test-Path("$PSScriptRoot\$i")};              # Combine our path with the user input, and see if it already exists.
                                                              Write-Host $i # Return the final (valid) file name.

Java 9, 87 byte

v->{String s;for(;new java.io.File(s=System.console().readLine()).exists(););return s;}

Bị đánh cắp

JVM của TIO rõ ràng không có hệ thốngConsole , vì vậy nó không thể kiểm tra được ở đó (xem System.console()).

import java.util.function.*;
class Main {
  public static void main(String[] args) {
    Function<Void,String> f =


v->{
  String s;
  for(;new java.io.File(s=System.console().readLine()).exists(););
  return s;
}


;
    System.out.println(f.apply(null));
  }
}

JavaScript (Node.js) , 158 118 byte

require('readline').createInterface({input:process.stdin}).on('line',s=>require('fs').existsSync(s)||--console.log(s))

Hãy thử trực tuyến!

Tín dụng cho @ ConorO'Brien để đưa ra phiên bản ngắn hơn. Các đối tượng nội tuyến thay vì sử dụng hằng và sử dụng điều kiện thoát lỗi thay vì thoát rõ ràng.

Sạch , 100 94 byte

import System.IO,System.File
Start w#(s,w)=evalIO getLine w
#(b,w)=fileExists s w
|b=Start w=s

Hãy thử trực tuyến!

phiên bản đơn biểu thức:

import System.IO,System.File
Start w=(\(s,v)=(\(b,w)|b=Start w=s)(fileExists s v))(evalIO getLine w)

Hãy thử trực tuyến!

Perl 6, 39 byte

my$f=".";while $f.IO.e {$f=get};say $f;

Điều này hoạt động trong REPL, nhưng nó dường như không hoạt động đúng trong TIO.

PHP, 43 byte

<?for(;file_exists($f=readline()););echo$f;

Chạy như CLI. Khá dễ hiểu.

Ruby , 40 39 37 byte

{}while File.exist? gets.chomp
$><<$_

Hãy thử trực tuyến!

APL (Dyalog) , 17 byte

{⍞}⍣{~⎕NEXISTS⍺}⍬

Hãy thử trực tuyến!

Kotlin , 67 byte

val f={var s="."
while(java.io.File(s).exists()){s=readLine()!!}
s}

Hãy thử trực tuyến!

Tùy viên , 35 byte

{While[FileExists[x:=Prompt[]],0]x}

Hãy thử trực tuyến!

Các giải pháp thay thế

35 byte : {If[FileExists[x:=Prompt[]],$[],x]} , hàm đệ quy.

37 byte : {NestWhile[p:=Prompt,p[],FileExists]} , hàm lặp.

Tối thiểu , 38 byte

"." :a (a exists?) ("" ask @a) while a

Lá tên cuối cùng được nhập vào ngăn xếp.

Giải trình

"."         ; Put . on the stack. Every directory should contain this...
:a          ; Assign to a
(a exists?) ; A quot that checks if a exists in current directory
("" ask @a) ; Read line from stdin, assign to a
while       ; Do the second quote while the first leaves true on the stack
a           ; Leave a on the stack

SmileBASIC, 27 byte

INPUT S$EXEC!CHKFILE(S$)?S$