ที่รันไทม์ให้พร้อมต์บรรทัดอินพุตจนกว่าผู้ใช้อินพุตไม่ใช่ชื่อของไฟล์หรือไดเร็กทอรีที่มีอยู่หรือไอเท็มระบบไฟล์อื่นที่สัมพันธ์กับไดเร็กทอรีการทำงานปัจจุบัน จากนั้นส่งคืน / พิมพ์ชื่อไฟล์ที่ป้อนล่าสุด คุณอาจสมมติว่าอินพุตของผู้ใช้ทั้งหมดจะเป็นชื่อไฟล์ที่ถูกต้อง

รหัสหลอก 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)

รหัสหลอก 2

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

ตัวอย่างการป้อนข้อมูลของผู้ใช้ซึ่งจะทำให้เกิดการแจ้งเตือนอีกครั้งเมื่ออยู่ใน TIO

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

ตัวอย่างของการป้อนข้อมูลของผู้ใช้ซึ่งจะกลับมาเมื่อ TIO:

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

แบตช์ 37 ไบต์

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

(ด้วยเหตุผลบางอย่างในปัจจุบัน Windows 10 CMD.EXEทำให้ชื่อเรื่องเสียหายเมื่อเรียกใช้งาน%0)

Mathematica, 33 28 ไบต์

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

นี้จะถือว่าสภาพแวดล้อมโน้ตบุ๊ค Mathematica Input[]ของที่เราสามารถสอบถามข้อมูลจากผู้ใช้ด้วย การป้อนข้อมูลของผู้ใช้ควรจะตามตัวอักษรสตริงที่เกิดขึ้นจริงดังนั้นเช่นแทนเพียง"ab/cd.ef" ab/cd.efข้อเสียคืออินพุตสามารถเป็นนิพจน์ Mathematica โดยพลการซึ่งคำนวณสตริงอินพุต

สิ่งนี้จะกำหนดสัญลักษณ์fซึ่งเมื่อทำการประเมินแล้วทำการคำนวณที่ต้องการและประเมินในท้ายที่สุดกับอินพุตผู้ใช้ที่ไม่มีอยู่ครั้งแรก มันคือฟังก์ชั่น nullary ซึ่งเราไม่จำเป็นต้องรวม...[]ถึงเรียกมัน

นอกจากนี้เรายังสามารถบันทึกพวงของไบต์กว่าแบบดั้งเดิมการแสดงออกโดยการใช้รูปแบบของผู้ประกอบการทดแทนIf/.

Perl 5 -ln , 12 10 ไบต์

-2 ไบต์ขอบคุณ@DomHastings

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

ลองออนไลน์!

Bash, 29

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

PowerShell 2 (ถึง 6), 35 ไบต์

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

Read-Hostรออินพุต (หากกำหนดสตริงเป็นพารามิเตอร์ให้ใช้สตริงเป็นพรอมต์) หากอินพุตที่จัดเตรียมไว้เป็นชื่อไฟล์ (หรือชื่อโฟลเดอร์) สำหรับรายการที่มีอยู่Test-Pathจะส่งคืน$trueและบล็อกสิ่งที่ไม่{}ทำงานดำเนินการและจะแจ้งให้ป้อนข้อมูลอีกครั้ง หากTest-Pathส่งคืน$falseเนื่องจากอินพุตไม่ใช่ไฟล์หรือโฟลเดอร์ที่มีอยู่บล็อกที่ไม่ทำอะไรเลยจะไม่ทำงานและจะมีการพิมพ์ชื่ออินพุต

C (gcc) , 62 ไบต์

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

ลองออนไลน์!

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
}

ขี้ขลาด 40 ไบต์

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

ในรูปแบบที่ขี้ขลาดจริงนี่ใช้คำหลักที่ติดอยู่กับแต่ละคนวงเล็บที่ไม่ตรงกันและคำหลักโดยนัย ทำความสะอาดแล้วดูเหมือนว่า:

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

ชำรุด

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 ไบต์

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

ลองออนไลน์!

ส่งคืนIO xโดยที่xชื่ออินพุตของไฟล์ที่ไม่มีอยู่

Ungolfed

import System.Directory

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

R , 66 51 ไบต์

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

-15 ไบต์ขอบคุณ plannapus

เรียกใช้การวนซ้ำไม่สิ้นสุดที่แต่ละรอบซ้ำ

1. อินพุตของผู้ใช้บรรทัดเดียวถูกเก็บไว้ในตัวแปร s
2. เราตรวจสอบว่าอินพุตอยู่ในรายการชื่อไฟล์สำหรับไดเรกทอรีทำงานหรือไม่ ( ต้องใช้a=Tตัวเลือกสำหรับlist.files()รับสิ่งต่าง ๆ เช่น..)
3. หากsอยู่ในรายการนั้นเราไปที่การทำซ้ำครั้งถัดไป sถ้าไม่ได้เราทำลายห่วงและพิมพ์

Python 3 , 55 ไบต์

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

ลองออนไลน์!

-4 ไบต์ขอบคุณ ManfP
-6 ไบต์ขอบคุณ Rick Rongen

C #, 101 ไบต์

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

สำหรับแต่ละค่าส่งคืนที่ถูกต้อง 4 ค่า:

• ลองออนไลน์! (ส่งคืน '... ')

• ลองออนไลน์! (ส่งคืน 'env.tio')

• ลองออนไลน์! (ส่งคืน '../..bin/]

• ลองออนไลน์! (ส่งคืน '/ สูญหาย / พบ)

Ungolfed

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

คำอธิบาย

ขึ้นอยู่กับความจริงที่ว่า File.GetAttributes () จะแสดงข้อยกเว้นหากวัตถุระบบไฟล์ที่ระบุในอาร์กิวเมนต์ไม่มีอยู่

Powershell 3.0, 75 ไบต์

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

ความพยายามครั้งแรก; ฉันแน่ใจว่ามีการเพิ่มประสิทธิภาพบางอย่างที่ฉันสามารถทำได้

แบบฟอร์มที่อ่านง่ายขึ้นเล็กน้อย:

$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 ไบต์

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

Ungolfed

เห็นได้ชัดว่า JVM ของ TIO ไม่มีระบบConsoleดังนั้นจึงไม่สามารถทดสอบได้ (ดู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 ไบต์

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

ลองออนไลน์!

ขอมอบเครดิตให้แก่ @ ConorO'Brien สำหรับรุ่นที่สั้นกว่า วัตถุที่ถูกแทรกแทนการใช้ const และการใช้เงื่อนไขการออกจากข้อผิดพลาดแทนที่จะออกอย่างชัดเจน

ทำความสะอาด , 100 94 ไบต์

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

ลองออนไลน์!

รุ่นนิพจน์เดียว:

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

ลองออนไลน์!

Perl 6, 39 ไบต์

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

ใช้งานได้ใน REPL แต่ดูเหมือนว่าจะทำงานไม่ถูกต้องใน TIO

PHP, 43 ไบต์

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

ทำงานเป็น CLI ค่อนข้างเข้าใจง่าย

Ruby , 40 39 37 ไบต์

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

ลองออนไลน์!

APL (Dyalog)ขนาด 17 ไบต์

{⍞}⍣{~⎕NEXISTS⍺}⍬

ลองออนไลน์!

Kotlin , 67 ไบต์

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

ลองออนไลน์!

ทูต , 35 ไบต์

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

ลองออนไลน์!

โซลูชั่นทางเลือก

35 ไบต์: {If[FileExists[x:=Prompt[]],$[],x]}ฟังก์ชั่นวนซ้ำ

37 ไบต์: {NestWhile[p:=Prompt,p[],FileExists]}ฟังก์ชันซ้ำ

ต่ำสุด , 38 ไบต์

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

ออกจากชื่อไฟล์ที่ป้อนล่าสุดในสแต็ก

คำอธิบาย

"."         ; 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 ไบต์

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